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Avertissement 


Avant de préciser les objectifs de ce manuel, annonçons 
tout de suite ce qu'il ne saurait être! 


Ce n'est pas un cours d'informatiques l'informatique 
constitue l'ensemble des sciences et techniques qui permettent 
aux ingénieurs de concevoir des ordinateurs. Notre but n'est pas 
de délivrer un tel enseignement. Nous cherchons à utiliser au 
mieux le TO 7, non à le concevoir (c'est déjà fait!). 


Ce n'est pas non plus un cours de programmation. Il est 
nécessaire pour le lire avec profit, de connaître quelque peu le 
langage Basic et de posséder certaines notions comm les boucles 
(FOR, NEXT), les sous-programmes (GOSUB), 18 lecture des données 
(DATA, READ), les instructions d'entrée-sortie (INPUT, PRINT), 
etc.. 


Le but de ce manuel est de présenter, par des exemples 
concrets, l'utilisation de la panoplie des instructions BASIC 
disponibles sur le micro-ordinnateur TO7. 


Le manuel d'Initiation BASIC TO7 permet d'acquérir les 
notions de base et de les appliquer en réalisant des programmes 
simples. 


Le manuel de Référence BASIC TO7 donne les règles 
d'utilisation de toutes les instructions BASIC disponibles sur le 
TO7. C'est un ouvrage fort utile au programmeur confirmé qui peut 
y trouver tous les renseignements nécessaires à une utilisation 
correcte de chaque instruction. 


vil 


Mais ce n'est pas un manuel que l'on peut lire, de la 
première à la dernière page, pour apprendre à connaitre les 
différentes instructionss c'est un manuel que l'on consulte pour 
y "pêcher" le renseignement utile. 


Entre le Manuel d'Initiation et le Manuel de Référence, il 
existe donc une faille que le présent Manuel s'efforce de 
combler, pour permettre au programmeur de passer, sans douleur, 
du niveau débutant au niveau confirmé. 


L'une des difficultés, pour le débutant, à réaliser des 
programmes d'un niveau non élémentaire, résulte de ls nécessité 
de connaitre la quasi-totalité des instructions disponibles, avec 
ce que l'on pourrait appeler leur mode d'emploi. 


Or souvent la lecture du Manuel de Référence ne permet pas 
de voir & quoi peut pratiquement servir une instruction. Le 
lecteur attentif peut comprendre la fonction réalisée par une 
instruction, mais en l'absence d'exemples pratiques d'application 
n'en voit pas toujours l'utilité. Il ne pensera donc pas & 
utiliser cette instruction pour résoudre son problème car l'on ne 
retient bien que ce que l'on a parfaitement compris. 


Prenons par exemple l'instruction PTRIG. Qu'en dit le 
Manuel? 


PTRIG vaut -1 si le contact du crayon optique est fermé et 
0 dans le cas contraire. N'importe qui est capable de comprendre 
cela, mais à quoi cela peut-il bien servir? 


Noua verrons plus loin une utilisation très importante de 
cette instruction, dans tous les programmes faisant intervenir le 
crayon optique. Elle permet de détecter l'usage du crayon optique 
pour le choix dens un "menu" de préférence à une réponse au 
clavier. Encore faut-il en avoir vu une application pratique pour 
y penser. Ce mode d'utilisation de PTRIG, une fois identifié per 
un exemple, est alors facilement mémorisé et le programmeur, 
chaque fois qu'il aurs à faire intervenir le crayon optique, ira 
chercher l'exemple, soit dans l'un de ses précédents programmes, 
aoit dans notre Manuel (les programmes et les étiquettes où est 
utilisé  PTRIG, sont donnés en annexe, dans le répertoire 
elphabétique des instructions). 


vil 


Comment lire ce Manuel? 


Nous n'en recommandons pas la lecture dans les transports 
en communs il ne vaut pes un bon roman policier! (Le nombre de 
personnages est beaucoup plus grand dens le Manuel; 
connaissez-vous SCREEN 0,0,7, agent tellement secret qu'il ne 
publie Ses messages qu'en noir sur fond noir et l'inquiétent 
SCREEN 0,7,0 qui n'écrit que des faire-parts de deuil 1!) 


Il est bien préférable de le lire "de la main gauche", en 
programmant le TO7 "de la main droite”. Chaque instruction doit 
être comprise, le Manuel y aident en expliquant le pourquoi et 
le comment. 


Ne vous imaginez surtout pas que l'auteur a écrit ces 
programmes exemples tout d'une traite et qu'une fois tapé, le 
programme a marché du premier coup. Nous ne connaissons aucun 
programmeur confirmé qui puisse se vanter d'avoir réussi une fois 
dans sa carrière un "sans faute” sur des programmes de plus de 
dix instructions! 


Chaque programme 8 demandé de nombreux essais, suivis de 
retouches et de modifications (pas toutes nécessairement 
heureuses). 


Vous constaterez qu'il est difficile d'imaginer ce que va 
donner une présentation d'information & l'écran (résultats de 
calculs, menus proposent un choix, instructions à l'opérateur...) 
et que bien aouvent, après essais, on est amené à déplacer les 
symboles, changer leurs tailles, leurs couleurs, changer la 
couleur du fond, etc. 


Encore supposons-nous que nous avons programmé exactement 
ce que nous avions envisagé ! Il est tellement facile 
d'intervertir par étourderie les valeurs de ligne et de colonne 
dans un LOCATE, d'intervertir le couleur des caractères et du 
fond dans un SCREEN, d'écrire une condition à l'envers! 


Un conseil à cette occasion. Ne perdez pes votre temps à 
chercher à détecter les fautes d'étourderie avant essai. Elles 
deviennent en général évidentes une fois l'essai effectué. Per 
contre faites de nombreux essais au cours de la frappe de votre 
programme. Chaque fois que vous avez frappé un "bloc" 
d'instructions "essayables", lancez le programme et effectuez les 
corrections nécessaires. 


En avançant ainsi pas a pas vous "déverminerez" 
progressivement votre programme, ce qui est beaucoup plus facile 
qu'un déverminage global, car les erreurs peuvent se masquer les 
unes les autres. En outre la recherche des erreurs est facilitée 
si vous savez qu'elles ne peuvent se situer que dans les quelques 
instructions non encore essayées. 


Il peut être également commode de placer des instructions 
provisoires au cours de la mise au point, en particulier pour 
vérifier que les sauts conditionnels s'effectuent comme prévu. 


Par exemple une instruction ON X GOTO ou une instruction 
ONPEN GOTO peut être vérifiée en plaçant aux étiquettes de 
destination des instructions provisoires premettant de vérifier 
que les branchements se font correctement. 


Nous donnons des exemples de ces techniques de mise au 
point tout au long du Manuel. Aussi est-il nécessaire de suivre 
le Manuel tout en programment le TO7, plutôt que de taper le 
programme définitif et constater (aux erreurs de frappe près) que 
le programme tourne. 


Vous constaterez enfin que les mêmes conseils ou les 
mêmes remarques se retrouvent dans les différents chapitres. 
Ceci est volontaire. Nous pensons qu'il est nécessaire de répéter 
plusieurs fois la même chose pour être sûr d'être bien perçu. 

Per ailleurs, nous l'avons dit, ce Manuel n'est pas un roman qui 
se dévore en une soirée ! Une remarque importante, lue au 
chapitre I, peut très bien être oubliée en abordant le chapitre 

V, quelques jours plus tard. 


La programmation n'est pas une technique difficile 
demandent des aptitudes intellectuelles spéciales. Par contre 
comme toutes les techniques, elle demande un apprentissage. On 
n'apprend pas à skier, & conduire une voiture, & parler une 
langue étrangère en cinq minutes. Il faut travailler, et seule la 
pratique permet d'acquérir les connaissances nécessaires. 


Puisse ce Manuel vous aider à maitriser la progremmation du 
TO7! 

Celle-ci vous reserve des joies intellectuelles qui valent 
largement celles du bridge, des échecs ou du scrabble. 


Pour faciliter la lecture de ce Manuel, les références au 
Manuel de Référence du BASIC T07 seront notées sous la forme! 


-(M.Ref n)- 


où n est le numéro de la page du Manuel de Référence. 


Les références au présent Manuel, POUR ALLER PLUS LOIN EN 


BASIC T07, seront notées sous la forme 


-(M. Bas n)- 
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Présentation à l’écran 
des caractères disponibles 


Nous allons commencer par un programme simple destiné à 
présenter sur l'écran l'ensemble des caractères disponibles en 
BASIC T07. 


Nous savons qu'à chaque caractère correspond un numéro de 
code (code ASCII) compris entre 0 et 127 -(M.Ref 219)-. 


Les codes compris entre 0 et 31 correspondent aux 
caractères "Controle" obtenus en tapant la touche CNT puis l'une 
des touches Lettres (de A à Z). Quelques-uns de ces caractères 
Montrole" sont obtenus directement en tapant les touches de 
commandes comme les flèches ou les touches STOP, INS, EFF, RAZ. 
Ces numéros de code ne donnent pas lieu à une impression de 
caractère sur l'écran. Nous en verrons une utilisation dans le 
programme CLAVIER au chapitre suivant. 


Nous ne nous intéresserons donc qu'aux caractères 
correspondant aux numéros de code compris entre 32 et 127. 


Par ailleurs quelques caractères sont bâtis en tapant la 
touche ACC puis une seconde touche appropriée. 


Nous nous proposons donc d'afficher à l'écran les numéros 
de code ASCII suivis du caractère correspondant. 

Pour cela nous utiliserons la fonction CHR$(N) -(M.Ref 
113)- qui fournit le caractère correspondant au numéro de code 
ASCII N. 


Enfin les caractères spéciaux obtenus en tapant au 
préalable la touche ACC seront obtenus en concaténant le 
caractère V$ = CHR$(22) (le numéro de code ASCII correspondant à 
la touche ACC est 22) avec le caractère CHR$(N). 


Nous verrons plus loin à quelque peu modifier la 
construction de ces caractères dans le cas des lettres 
accentuéess mais il est préférable de s'en tenir pour l'instant à 
cette méthode et de ne la modifier que suite à l'expérience. 


Nous avons à disposer sur l'écran 127 - 31 = 96 caractères. 


Nous les présenterons donc en quatre colonnes de 24 lignes 
en affichant dans chaque colonne le numéro de code ASCII, le 
caractère correspondant et, s'il existe, le caractère spécial 
obtenu avec la touche ACC. 

Sur la première ligne nous présenterons les numéros 32, 32 
+ 24 = 56, 56 + 24 = 60, BD + 24 = 104 et sur la première colonne 
les numéros 32 à 55. 


Notre écran se présentera donc de la façon suivante : 


32 56 80 104 
33 57 81 105 
54 78 102 126 
55 79 103 127 


Le numéro de code ASCII N variant de 32 à 127 sera affiché 
en colonnes 0, 10, 20 et 30 à l'aide de l'instruction PRINT USING 
-(M.Ref 90)- avec une image comportant 3 places pour les 3 digits 
constituant le nombre N. L'image utilisée est donc constituée de 
3 dièses. Ainsi le numéro 32 en première ligne s'affichera avec 
le digit 3 en colonne 1, le premier digit étant un espace situé 
en colonne 0, 


Le caractère correspondant au numéro de code ASCII N sera 
affiché avec un décalage de 2 espaces par rapport au dernier 
digit de N, et le caractère spécial, s'il existe, avec un 
décalage de un espace par rapport au caractère. 


1 nous reste, maintenant que ces principes de présentation 
ont été adoptés, à examiner le programme qui permet de réaliser 
notre objectif. 


Less 


Lis 


Nous proposons le programme suivant : 


18 CLS: SCREEN 4, 6,6 

20 VQ=24:DX=10: TD=32:A$=CHRS (22) 
30 FOR I=S32 TO 55 

40 FOR K=Q TO 3 

50 N=1+VOxK:KK=DXxK:LL=I-TD 


69 COLOR S:LOCATE KK:LL, 2: PRINT USING “###'"5:N: 
COLOR 4:LOCATE KK+5, LL: PRINT CHR$(CN) :COLOR Q: 
LOCATE KK+7, LL: PRINT A$S+CHRS(N) 


70 NEXT KI 

80 R6=INPUTS(1):1IF ASCCR6) (> 13 GOTO 89 
90 SCREENPRINT 

100 COLOR 4:CLS 


10 

Efface l'écran. Les caractères seront Bleu (4), le fond 
Cyan (6) et l'entourage Cyan (6) (on se reportera à l'annexe 
I pour mieux comprendre l'utilisation des instructions 
gérant les couleurs). 


20 

Définit les trois constantes VQ (valeur 24), DX (valeur 
10), TO (valeur 32) et la chaîne A$ (caractère controle 22, 
c'est à dire caractère correspondant à la touche ACC). 


Ces quatre paramètres nous seront utiles dans la suite du 
programme. 


Il est recommandé de ne pas utiliser des constantes, sous 
forme numérique, à l'intérieur du programme car cela impose 
à l'interprèteur, au moment de l'exécution de l'instruction, 
de transcrire la valeur, représentée dans l'instruction par 
une chaîne de caractères chiffres, en une valeur numérique 
utilisable dans les calculs. 


ak 


Rappelons que l'interprèteur est le logiciel qui 
transforme chaque instruction, écrite en BASIC, en langage 
machine directement assimilable par le microprocesseur. 


Si la constante est utilisée à l'intérieur d'une boucle, 
l'interprèteur doit effectuer la transcription à chaque 
passage sur l'instruction, ce qui conduit à une perte de 
temps inutile. 


Dans notre exemple la boucle est relativement courte et le 
gain de temps n'est pas significatif, mais nous avons 
préféré utiliser cette méthode de déclaration préalable des 
constantes pour en rappeler le principe. 


Nous noterons enfin que nous n'avons pas utilisé des 
variables A, B ou C pour les constantes 24, 10 et 32 mais 
les variables VQ, DX et TO qui ont un sens mmémonique qui 
évite des erreurs de programmation ultérieures. 


30 

Déclaration de boucle portant sur le paramètre I. On fait 
varier I de 32 à 55 ce qui représente les numéros de code 
ASCII de la première colonne. 


40 

Déclaration de boucle portant sur le paramètre K. On fait 
varier K de DO à 3, K représentant le numéro de la rangée 
verticale (D pour la première, 3 pour la dernière). 

Ainsi le numéro de code ASCII N figurant dans la rangée K 
sur la ligne où est affiché, en colonne 0, le numéro I, 
est-ilN=1+24*K 


50 


a/ Calcul du numéro de code ASCII N par la formule 
démontrée ci-dessus. 


b/ Le numéro de colonne écran correspondant à la rangée K 
est KK = 10 * K. C'est en colonne KK que l'on affichera le 
premier chiffre de N (ou un espace si N ne possède que deux 
chiffres) 


c/ Enfin le numéro de code ASCII 32 doit être affiché sur 
la ligne OÙ, ce qui impose un numéro de ligne LL = I - 32 
pour le numéro de code I. 


Lans 


Léon 


cette 


60 
a/ Fixe la couleur des caractères à 5 (Magenta) (voir 
Annexe I) 


b/ Positionne le curseur en colonne KK, en ligne LL. 


Le zéro figurant en troisième paramètre de l'instruction 
LOCATE efface le curseur -(M.Ref 72)- 


c/ Affiche à l'écran la valeur de N, en plaçant le premier 
caractère (qui peut être un espace si N n'a que deux 
chiffres) à la position du curseur définie par l'instruction 
LOCATE précédente. 


d/ Fixe la couleur des caractères à 4 (Bleu) 
e/ Positionne le curseur en colonne KK + 5, c'est à dire 2 
espaces après la valeur de N, puisque N est affiché par 


l'instruction PRINT USING précédente avec 3 caractères. 


f/ Affiche le caractère correspondant au numéro de code 
ASCII N. 


g/ Fixe la couleur des caractères à D (Noir) 


h/ Positionne le curseur en colonne KK + 7, c'est à dire 
un espace après le caractère de code N. 


i/ Affiche, s'il existe, le caractère spécial bâti avec 
la touche ACC préalablement tapée. 


En conséquence on affiche en Magenta le numéro de code, en 
Bleu le caractère correspondant, en Noir le caractère 
spécial. 


70 
Ferme les deux boucles en I et K. Cette instruction est 
équivalente aux deux instructions successives NEXT I:NEXT K. 


HRK X k 


Avant d'examiner la suite du programme, il est faut essayer 
première partie, qui constitue un "bloc" exécutable puisque 


la dernière instruction a cloturé les deux boucles. 


Nous constatons après essai que le programme marche presque 
correctement ! 


Néanmoins on relève cinq anomalies, apparemment 
mystérieuses. Les numéros de code 89, 90, 91 et 96 sont décalés 
d'un espace vers la gauche et un ç s'est accolé au numéro 99. 


Nous sommes là en présence d'un "bug" qui peut laisser le 
programmeur débutant quelque peu  désemparé ©! (le term 
anglo-saxon "bug" signifie vermine). 


Bien entendu l'auteur lui-même est tombé dans le piège et 
il a dû rechercher l'origine des anomalies. 


On constate que les anomalies se produisent sur les lignes 
où ont été affichées les caractères spéciaux correspondant aux 
trois accents, au tréma et au caractère ç. Or un accent ou un 
tréma n'existe pas "seul", il s'applique à un autre caractère. Il 
est donc nécessaire de faire figurer derrière le groupe CHR$(22) 
+ CHR$S(N) un troisième caractère. Il se produit un phénomène 
analogue avec la cédille. Aussi allons nous mdifier la dernière 
instruction de 60 sous la forme PRINT U$ + CHR$S(N) + "1, c'est à 
dire en rajoutant un espace après le caractère spécial. Dans ces 
conditions l'effet de l'accent qui ne provoque pas le déplacement 
du curseur est annulé par la présence de l'espace. 


CEE | 


a/ Place dans la variable R$ le premier caractère tapé au 
clavier -(M.Ref 174)-. 


11 faut noter que l'instruction INPUT$(1) permet de 
charger dans la variable à gauche du signe = n'importe quel 
caractère tapé au clavier, en particulier le caractère 
correspondant à la touche ENTREE (numéro de code ASCII égal 
à 13). Par contre la fonction INPUT -(M.Ref 65)- ne permet 
pas de capter tous les caractères. 


b/ Teste le caractère contenu dans R$. 


La fonction ASC(R$) -(M.Ref 111)- retourne le numéro de 
code ASCII du premier caractère de R$ (dans notre cas R$ n'a 
qu'un seul caractère). 


Si ce numéro est différent de 13 (code correspondant à la 
touche ENTREE) le programme retourne à l'instruction 80 pour 
attendre une nouvelle frappe au clavier. En conséquence le 
programme ne passe à l'instruction suivante 90 que si 
l'opérateur tape la touche ENTREE, les autres touches étant 
inoœpérantes. 


Cette instruction, que nous retrouverons de nombreuses 
fois, permet de stopper le programme pour permettre à 
l'opérateur de consulter les résultats affichés à l'écran. 


La poursuite du programme s'effectue en tapant une touche 
précise, ici la touche ENTREE. 


On pourrait se dispenser du test, auquel cas la frappe 
d'une touche quelconque permettrait la poursuite du 
programme. Il est toutefois prudent, dans de nombreux cas, 
d'imposer la frappe d'une touche précise pour éviter des 
poursuites intempestives du programme sur fausse manoeuvre. 


90 
Cette instruction n'est utilisable que si l'ordinateur est 
connecté avec l'imprimante thermique PR 90-040. 


Elle provoque la recopie de l'écran, ce qui permet de 
disposer d'un document rappelant en particulier comment 
obtenir les caractères spéciaux, 


Notons que l'imprimante à aiguilles PR 9D-080 n'accepte 
pas l'instruction SCREENPRINT. 


100 
Fixe la couleur des caractères à 4 (Bleu). 


Cette instruction est utile pour retrouver l'écran 
habituel (caractères Bleu, fond et entourage Cyan) après 
effacement par l'instruction suivante CLS 


Le programme définitif est donc le suivant : 


10 
20 
30 
40 
90 
60 


70 
80 
90 


CLS: SCREEN 4.6.6 

VO=24 :DX=10: TD=32:A$=CHRS$S (22) 

FOR I=32 TO 55 

FOR K=0 TO 3 

N=I+VOxK:KK=DX#xK:LL=1I-TD 

COLOR S:LOCATE KK; LL, O5: PRINT USING "###"35N: 
COLOR 4:LOCATE KK+5, LL:PRINT CHR$CN) : COLOR 6: 
LOCATE KK+7, LL: PRINT AS$S+CHRS CN) +" 

NEXT KI 

R$S=INPUT$(1):IF ASCCR$) () 13 GOTO 89 


SCREENPRINT 


100 COLOR 4:CLS 
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Choix multiple. 
Présentation d’un menu 


Il arrive bien souvent qu'au cours du déroulement d'un 
programme, on soit amené à proposer un choix à l'opérateur. 


Il est commode de proposer les diverses options possibles 
sous forme d'une liste que l'on appelle habituellement un "menru!, 


Nous nous proposons d'établir un programme simple, montrant 
les diverses techniques de programmation permettant de faciliter 
les manipulations de l'opérateur et de réduire les erreurs de 
choix. 


Le thème retenu sera le suivant : on propose à l'opérateur 
une liste de cinq chansons. Une fois choisie un titre le 107 joue 
les premières mesures de la chanson. 

Ce thème n'a bien entendu d'intéret que dans la mesure où 
il nous permet de présenter les techniques de "menu", quelques 
techniques de présentation d'information à l'écran et la methode 
pour faire "chanter" notre T07 ! 


Le programme peut être divisé en plusieurs blocs qui 
seront mis au point successivement : 


- un bloc "présentation du menu" à l'écran. Un souci de 
clarté et même d'esthétique doit prévaloir. 


- un bloc "logique" analysant la réponse de l'opérateur 
pour orienter le programme sur la chanson choisie. 


- un bloc "musique" permettant de jouer l'air retenu. 


I1 ne faudra pas enfin oublier de proposer à l'opérateur un 
dernier choix, une fois la musique exécutée, à savoir s'il veut 
choisir une nouvelle chanson ou s'il veut clôturer (les 
informaticiens utilisent bien souvent le terme "clôturer" pour 
"terminer" bien que l'Académie ne lui donne pas exactement ce 
sens; pour avoir l'air d'informaticiens dans le vent nous 
utiliserons donc abondamment ce vocable) 


Etudions tout d'abord le premier bloc, le bloc de 
présentation du menu. 


Nous proposerons cinq titres de chansons, à savoir "Au 
clair de la Lune", "J'ai du bon tabac", "A la claire fontaine", 
"Sur l'pont du Nord" et "Nous n'irons plus au bois". Rien 
n'empèche le lecteur de modifier notre programme pour y 
introduire des titres plus alléchants de Brel ou de Brassens ! 


Nous afficherons ces cinq titres sur les lignes 2, 7, 12, 
17 et 22. Nous dessinerons en bout de chaque ligne un carré 
contenant un numéro allant de 1 à 5. 


Le choix sera effectué par l'opérateur soit en tapant au 
clavier le numéro de la chanson retenue, soit en désignant le 
carré correspondant à l'aide du crayon optique. 


Nous rajouterons, à gauche et à mi-hauteur de l'écran, un 
carré supplémentaire contenant la lettre C pour permettre à 
l'opérateur de "“Clôturer" 


Par souci d'esthétique nous inscrirons les titres dans des 
rectangles blancs, bordés en dessous et à droite de lignes de 
couleur donnant une impression de relief. Les carrés seront de 
même bordés de lignes de couleur les faisant apparaître comme 
des touches en relief. Nous utiliserons cinq couleurs, rouge, 
vert, jaune, bleu, magenta pour les cinq titres et les "touches" 
correspondantes et le noir pour la "touche" C 
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Le programme correspondant à ce premier bloc peut alors 
s'écrire comme suit : 


19 DATA Au clair de la Lune, J'ai du bon tabac: 
A la claire fontaine, Sur i’pont du Nord: 
Nous n'irons plus au bois:DIM Z$(4) 

26 CLS:SCREEN 4,6,6 

30 FOR B=0 TO 4 


4O VYis4OrB+B: V2=<V1+23:BOXF (288, Y1)-(311; V2), -8: 
COLOR 6, 7:LOCATE 37, 5xB+2, GO: PRINT CHR6(49+B) 


90 FOR J=1 TO 3 
60 VA=Y1+J:YB=V2+J: XA=311+J:XB=288+J 
70 LINE CXA, YA)-CXA, VB), B+1:LINE -CXB; YB), B+1 
80 NEXT J 
92 NEXT B 
100 BOXF (0, 88)-(23: 112), -8:FOR J=1 TO 31 
LINE (23+J, 88+J)-(23+J; 112+J), 0: 
LINE -(J,112+J), O:NEXT:COLOR 0, 7: 
LOCATE 1, 12:PRINT "C" 
110 FOR B=0 TO 4 


120 Vi=4OwB+15:V2=<V1+8: X2=6S+BLEN(Z9) 1: 
READ Z$:26(B)=2$ 


138 BOXF (48, Y1)-(CX2, Y2), -8 

140 FOR J=zi TO 3 

150 VA=V1+J:VB=V2+J: XA=X2+J: XB=47+J 

160 LINE (XA, VA)-CXA: VB), B+15LINE -CXB, VB), B+1 
170 COLOR 6, 7:LOCATE 7, 5+kB+2:PRINT Z$ 

180 NEXT J 

190 NEXT B 


Lin 


Lis 
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10 
a/ Ligne de données permettant de charger les titres des 
cinq chansons. 


Nous  noterons que les données figurant dans une 
instruction DATA -(M.Ref 38)- sont stockées sous forme de 
chaînes de caractères, même si ce sont des valeurs 
numériques. C'est à la lecture par l'instruction READ que la 
donnée lue est identifiée comme étant une variable numérique 
ou comme une chaîne de caractères (READ Z interprète la 
variable lue comme une variable numérique simple précision, 
READ Z# comme une variable double précision, READ Z$ comme 
une chaîne de caractères). 


Dn notera donc que les données sont écrites sans être 
placées entre guillemets bien que ce soient des chaînes de 
caractères. 


b/ Réserve 5 places mémoires (indice variant de 0 à 4) 
pour la variable Z$(1) destinée à stocker les titres des 
chansons, 


Cette réservation n'est pas obligatoire puisque nous 
n'utilisons que 5 valeurs (dès qu'une variable dimensionnée 
apparaît dans une instruction, une réservation automatique 
de 11 places mémoires (indice variant de D à 10) est 
effectuée si la réservation par DIM -(M.Ref 46)- n'a pas été 
faite dans une instruction précédente. Il est toutefois 
recommandé de faire cette réservation systématiquement pour 
économiser des places mémoires. 


I1 faut prendre garde enfin à placer l'instruction DIM en 
tout début de programme. Nous aurons en effet à revenir, une 
fois Un air exécuté, à l'instruction de début du bloc 
d'affichage du "menu", c'est-à-dire à l'instruction 20. Or 
il est interdit de dimensionner plusieurs fois de suite la 
même variable par l'instruction DIM. Il ne faut donc pas 
placer OIM Z$(4) sous une étiquette sur laquelle le 
programme est appelé à passer plusieurs fois (une telle 
erreur est signalée par le message DD) 


20 
a/ Efface l'écran. 


b/ Les caractères seront Bleus (4), le fond Cyan (6) et 
l'entourage Cyan (6) -(M.Ref 193)- 


Lin 


30 
Duverture d'une boucle sur le paramètre B. B varie de O0 à 
& (le numéro N de la chanson est égal à B +1) 


4D 

Les carrés auront 24 points de côté (soit 3 caractères : 

3 * 8 = 24), ce qui permettra de placer un caractère au 
centre (chiffre de 1 à 5 ). Chaque chiffre doit se trouver 
sur la même ligne que le titre correspondant de la chanson, 
donc en lignes 2, 7, 12, 17 et 22. Nous les placerons en 
outre en colonne 37, 

Ceci nous impose pour la chanson N (N = B-1) de placer le 
chiffre N en colonne 37, ligne 5*B+2. Par suite la "case 
caractère" en haut et à gauche du chiffre N doit être 
située en colonne 36, ligne 5*B+1. Les coordonnées du point 
en haut et à gauche de cette "case caractère", donc en haut 
et à gauche de notre carré entourant le chiffre N, sont donc 
X1 = 36 x 8 = 2B8 et Y1 = B*(5*B+1). Les coordonnées du coin 
bas-droit du carré seront par suite X2 = X1 + 23 et Y2 = Y1 
+ 23. 


Nous devons prendre garde à ce que l'abscisse X1 du coin 
haut-gauche de notre carré soit un multiple exact de B et 
que l'abscisse X2 du coin bas-droit soit un multiple de 8 
moins 1. Nous allons en effet tracer un carré en "couleur de 
fond" Blanc à l'aide de l'instruction BDXF. Il est 
nécessaire, traçant une figure en "couleur fond" Blanc sur 
le fond général Cyan de respecter cette condition sous peine 
de voir le fond Blanc "baver" sur le fond Cyan, ce qui 
conduirait à un "carré" Blanc de forme rectangulaire ! Dn se 
reportera à l'Annexe I pour plus de détails sur les 
problèmes de gestion des couleurs. 


Détaillons maintenant les diverses instructions placées 
sous l'étiquette 4D 


a/ Calcul de l'ordonnée Ÿ1 du coin haut-gauche du carré 
b/ Calcul de l'ordonnée Y2 du coin bas-droit du carré 


c/ Dessin d'une "boîte pleine" de couleur -8 (Couleur de 
fond Blanc) -(M.Ref 187)- 


d/ Fixe la couleur des caractères au Noir (D) avec une 
couleur de fond Blanc (7). Les caractères affichés par les 
PRINT suivants seront donc Noirs sur fond Blanc. 
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e/ Positionne le curseur en colonne 37 et en ligne 5*B+2. 


Le zéro comme troisième paramètre du LOCATE supprime le 
curseur. 


f/ Affiche le caractère ayant le numéro de code ASCII 49+B 
(voir fonction CHR$ -(M.Ref 113)- ). 


Ainsi le caractère "1" (numéro de code ASCII 49) est 
affiché pour B = D; pour B = 4 c'est le caractère "5" 
(numéro de code ASCII 53) qui est affiché. 


50 
Duverture d'une boucle en J. 


J est un paramètre variant de 1 à 3, destiné à compter le 
nombre de lignes tracées au-dessous et à droite du carré 
pour donner l'impression de relief. 


6D 

Nous traçons quatre lignes à droite du carré, comprises 
entre les ordonnées YA = Y1 + J (Y1 est l'ordonnée du haut 
du carré) et YB = Y2 + J (Y2 est l'ordonnée du bas du carré) 
et d'abscisses XA = 311 + J (311 est l'abscisse du bord 
droit du carré). 


Cela donne quatre lignes en dégradé vers la droite et le 
bas. 


On complète le dessin par quatre lignes horizontales en 
dégradé analogue : coordonnées d'origine identiques aux 
coordonnées d'extrémité des lignes verticales précédentes, 
coordonnées d'extrémité XB = 2BB + J (2BB est l'abscisse du 
bord gauche du carré), YB = Y2 + J (Y2 est l'ordonnée du bas 
du carré). 

a/ Calcul de l'ordonnée YA 

b/ Calcul de l'ordonnée YB 

c/ Calcul de l'abscisse XA 


d/ Calcul de l'abscisse XB 


XAX 


70 

a/ Tracé d'une ligne verticale entre les points XA,YA et 
XA,YB en couleur égale à B+1, c'est-à-dire en couleur de 
graphisme (voir Annexe 1), puisque B+1 est positif (couleur 
Rouge (1) pour le premier carré, couleur Magenta (5) pour le 
cinquième). 


b/ Tracé d'une ligne horizontale entre le point XA,YB 
(retenu par défaut puisque l'instruction après le mot LINE 
ne comporte pas de première parenthèse) et le point XB,YB. 
La couleur est la même, B+1, que pour la ligne verticale 
précedente. 


BD - 9D 

Fermeture des boucles en J et en B. On aurait pu 
simplifier et écrire une seule instruction sous la forme !: 
9D NEXT J,B mais la programmation aurait perdu de la clarté 
à la relecture. 


1DD 

Ce groupe d'instructions sous la même étiquette, a pour 
but de dessiner le carré situé à gauche et à mi-hauteur de 
l'écran, contenant le caractère M"C". Le caractère "C" est 
situé en colonne 1, ligne 12. Les instructions sont 
analogues à celles décrites de 3D à 9D. 


110 
Ouverture d'une boucle en 8. B est encore le paramètre de 
comptage des lignes d'inscription des titres de chansons. 


120 - 1B0 

Nous allons tracer des rectangles en couleur fond Blanc 
sur les lignes 2, 7, 12, 17, 22 sur lesquels nous écrirons 
les titres des chansons. Chaque rectangle sera mis en relief 
par quatre lignes verticales à droite, en dégradé, et quatre 
lignes horizontales au-dessous, en degradé également. 


La programmation est analogue à celle utilisée pour les 
carrés. 


La seule différence réside dans la lecture des données 
OATA par l'instruction READ en 12D, qui place dans la 
variable Z2$ les chaînes successives représentant les 
différents titres et le calcul de la "longueur" du rectangle 
blanc à partir de la longueur de la chaîne Z$ par la 
fonction LEN(Z$) -(M.Ref 12B)-. 


Enfin la chaîne Z$ est mise en mémoire dans la variable 
Z$(B) ce qui nous sera utile pour afficher le titre de l'air 
choisi pendant son exécution. 


LL 190 
Clôture de la boucle en B 


Il est temps, une fois ce programme tapé, de l'essayer. 


Il constitue en effet un bloc exécutable et, comme nous 
l'avons dit dans l'Avertissement aux Lecteurs, il est très 
important de faire "tourner" dès que possible les parties de 
programme exécutables pour y détecter les erreurs, erreurs de 
frappe donnant des SN Errors (Erreurs de Syntaxe) et erreurs de 
logique. 


Le programme qui vous est proposé ici est exempt de ce 
dernier type d'erreur mais il ne faut pas croire qu'il a été 
conçu directement sans erreur ! Il est si facile de se tromper 
dans un LDOCATE ou le calcul des coordonnées d'un point. Ce n'est 
qu'en observant le résultat sur l'écran que l'on détecte de façon 
évidente ce type d'erreur. 


Passons maintenant au deuxième bloc, le bloc logique 
analysant la réponse de l'opérateur pour orienter le programme 
vers le bloc d'exécution de la musique choisie. 


Pour bien le différencier du bloc précédent, nous le 
commencerons à l'étiquette 500. Cette remarque peut paraître 
futile. Elle est en réalité très importante, car une telle 
pratique facilite grandement la relecture et la mise au point du 
programme. 


Nous nous proposons de capter la réponse de l'opérateur 
sous l'une ou l'autre des deux formes suivantes ! 


a/ Frappe au clavier d'un chiffre, compris entre 1 et 5, ou 
de la lettre C 


b/ Pointage à l'aide du crayon optique de l'une des 6 
"touches" dessinées sur l'écran (les 5 touches carrées marquées 1 
à 5 et la touche C). 
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La captation d'un caractère "à la volée" se fait par 
l'instruction INKEY$ -(M.Ref 123)- . Si une touche a été frappée 
la variable À$ définie par l'instruction : 


R$ = INKEYS$ 


contient le caractère correspondant à cette touche. Si au 
préalable la variable R$ a été "mise à zéro" (chaîne de 
caractères de longueur nulle), un test sur le contenu, non nul ou 
nul, de À$ nous renseignera sur le fait que l'opérateur a répondu 
ou non par l'intermédiaire du clavier. 


Le fait que l'opérateur ait répondu par l'intermédiaire du 
crayon optique est détecté grâce à l'instruction PTRIG. 


Si le crayon optique a été appuyé sur l'écran (ou sur toute 
autre surface, nous verrons comment faire la distinction plus 
loin), le paramètre PTRIG prend la valeur -1 (Variable logique 
VRAI), sinon il prend la valeur D (Variable logique FAUX). Un 
test sur PTRIG nous permettra donc de détecter une réponse par le 
crayon optique. 


I1 nous reste ensuite à tester si la réponse fait partie 
des réponses attendues (nombre compris entre 1 et 5 ou caractère 
C pour la réponse au clavier, zone sur l'écran correspondant à 
l'une des "touches" dessinées) 


Pour repérer sur quelle "touche" le crayon optique a été 
placé, il nous faut identifier les zones correspondant aux 
touches par l'instruction PEN -(M.Ref 84)- . 


Une instruction PEN définit une zone rectangulaire avec les 
coordonnées des coins haut-gauche et bas-droit du rectangle. Sa 
structure est analogue à celle de l'instruction BOX. 


I1 est commode d'insérer ces instructions dans le programme 
de dessin des touches au moment où on les définit par 
l'instruction BOX. Nous modifierons donc les instructions 40 et 
1DD en les complétant par une instruction PEN. 


4O Vi=4OB+B: V2=V1+23:BOXF (288, Y1)-(311, V2), -B: 
COLOR ©, 7:LOCATE 37, 5kB+2, @: PRINT CHRS(49+B) : 
PEN B1(28B:Y1)-(311, Y2) 
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108 BOXF (8: 88)2-(25, 112), -8:FOR J=1i TO 3: 
LINE (23+J,88+J)-(23+J, 112+J),0: 
LINE -(J:112+J), @:NEXT:COLOR ©, 7: 
LOCATE 1,12:PRINT "C"':PEN 53 (0, 88)-(23;, 112) 


*#k 40 
L'instruction PEN, que l'on vient de rajouter,définit donc 
le carré dessiné par l'instruction BOXF précédente (les 
coordonnées sont les mêmes pour les deux instructions) avec 
le numéro repère B, c'est-à-dire D pour la "touche" du haut 
et 4 pour la "touche" du bas. 


On notera qu'il est important de commencer la numérotation 
des "zones" par la valeur D, car la première étiquette 
adressée par l'instruction  DNPEN se réfère à la "zone" DO 
(il y a donc une différence notable avec l'instruction DN X 


GDTO où la première étiquette adressée se réfère à la valeur 
1 du paramètre X). 


##* 100 


L'instruction supplémentaire attribue le numéro repère 5 à 
la "touche" C. 


I1 faut enfin sur une réponse plausible brancher le 
programme sur le bloc "musique" pour exécuter l'air demandé. Des 
instructions DNPEN -(M.Ref B2)- et ON X -(M.Ref BD)- nous 
permettront ces branchements. 

Le programme répondant à ces diverses exigences est alors 
le suivant. 

9500 R$="'":R$S=INKEYS 

910 IF PTRIG GOTO 600 

020 IF R$="" GOTO 500 


530 R<ABC(RS): 
Z=1-CR)48 AND R(S4)#CR-48) -Bk(R$="C") 


540 ON Z GOTO 500, 1000, 2000, 3000, 4000, 5800, 6080 
608 ONPEN GOTO 1000, 2000, 3000. 4800, 5000, 6000 
610 GOTO 569 
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XAk 


Lis 


Lis 


500 
a/ Met à "zéro" la variable R$ 


b/ Recueille dans R$ le ceractère éventuellement frappé eu 
clevier 


510 

PTRIG étant une variable logique est testée directement 
per la condition IF. Si PTRIG est VRAI (le crayon optique a 
été appuyé), alors le programme est branché en 600. Üans le 
cas contraire (PTRIG = FAUX) on passe à l'instruction 
suivante. Ainsi l'utilisation du crayon optique est détectée 
dès que l'interrupteur du creyon est fermé par appui sur 
l'écran et le programme est brenché sur le reconnaissance en 
600 de la zone d'écran vue par le crayon. 


520 

Le crayon n'ayant pes été utilisé, c'est la variable R$ 
qui est testée. Si R$ est égale à "zéro" (chaîne nulle = 
"") elors le programme est brenché en 200 en attente d'une 
frappe de touche ou d'une utilisetion du creyon. Il faut 
noter que contrairement eux instructions INPUT et INPUT$(N) 
le programme ne s'arrète pes sur une instruction IMKEY$. Il 
capte "à la volée" le cerectère tapé au clavier. En 
conséquence le progremme boucle en permanence entre 500 et 
520 jusqu'à ce qu'une touche soit freppée ou le creyon 
optique appuyé. 


530 
e/ La varieble R contient le numéro de code ASCII de R$, 
ce qui va permettre d'identifier la touche tapée. 


b/ Z est une variable calculée à l'aide de variables 
logiques testant R ou R$. 


On sait que la veriable (X = A) prend la valeur -1 si la 
condition entre perenthèses est vérifiée (si X est égal à 
A), et prend la valeur O0 si la condition n'est pas vérifiée 
(si X est différent de A) -(M.Ref 20)-. 


En conséquence si R$ est un caractère correspondant aux 
chiffres de 1 à 5 alors R (numéro de code ASCII de R$) est 
compris entre 48 et 54, bornes non comprises (le numéro de 
code ASCII de "1" est 49 et celui de "5" est 53). Per suite 
si R$ est un caractère différent des cinq caractères "1" à 
“SN la variable logique (R)48 ANO R(54) est égale à zéro et 


elle est égale à -1 dans le cas contraire. 
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Lis 


Lin 


20 


De même la variable logique (R$-"C") est égale à -1 si 
l'opérateur a tapé la touche "C" et égale à zéro pour toute 
autre touche. 


Ainsi la variable Z prend les valeurs 2, 3, 4, 5 ou 6 si 
R$ est égal à "1", "21, 131, M4 où "S",Notons que R-48, qui 
n'est pas une variable logique prend les valeurs 1 à 5 
lorsque R varie de 49 (numéro de code ASCII de "1") à 53 
(numéro de code ASCII de "5). 


Enfin Z prend la valeur 7 si R$ est un "C'et la valeur 1 
dans tous les autres ces. 


Cette variable Z va donc nous permettre d'une pert de 
rejeter toute réponse erronnée (valeur 1) et d'identifier 
les bonnes réponses par une valeur variant de 2 à 7. 


540 

Suivant les valeurs de Z l'instruction ON Z GOTO -(M.Ref 
80)- branche sur l'étiquette 500 (Z = 1 , cas de la réponse 
érronnée) pour recueil d'une nouvelle réponse, sur les 
étiquettes 1000 à 5000 (Z variant de 2 à 6, touches "1" à 
"5") ou sur l'étiquette 6000 (Z = 7, touche "C'") 


Nous placerons donc les instructions de "clôture" du 
programme à partir de 6000 et les instructions de musique en 
1000, 2000, ..., 5000 (1000 pour jouer "Au clair de la 
Lune",..., 5000 pour "Nous n'irons plus au bois"). 


600 

L'instruction 600 n'est atteinte que si la condition PTRIG 
= VRAI a été vérifiée en 510. Dans ce cas nous savons que le 
crayon optique a été utilisé. Il nous reste maintenant à 
identifier la zone désignée. 

L'instruction ONPEN GOTO -(M.Ref 82)- branche sur la 
première étiquette (1000), si la zone repérée 0 a été 
désignée, sur la seconde étiquette (2000), si la zone 
repérée 1 a été désignée, etc (les repères de zone ont été 
définis par les instructions modifiées 40 et 100). 


Per conséquent si le cerré, numéroté 1 (carré supérieur 
correspondant à "Au clair de la Lune"), et repéré per le 
nombre ÜÙ a été désigné, le programme est brenché sur 
l'étiquette 1000. 

Si par contre le creyon optique a été appuyé en dehors des 
zones repérées (de O à 5 dens notre cas), alors le programme 
passe à l'instruction suivante, ici 610 


#4%x 610 


Aucune zone repérée de 0 à 5 n'ayant été désignée, le 
programme est rebranché en 500 pour lecture d'une nouvelle 
réponse de l'opérateur. 


3 


reste meintenant à tester le bloc logique, pour 

n'y a pas d'erreurs, en particulier d'erreurs 
d'adressage. Il nous faut donc tester que, par exemple, la frappe 
de la touche "2" envoie bien le programme en 2000 ou que la 
frappe de la touche "C'" envoie bien en 6000. 


Il nous 
vérifier qu'il 


Si 


nous essayons le programme tel quel nous aurons quelques 
déboires 


car les instructions ONPEN GOTO et ON Z GOTO ne pourront 
s'exécuter puisque les étiquettes 1000, 2000, ..., 6000 
n'existent pas. Nous  obtiendrons un message d'erreur LU 
(Undefined Line, Numéro de Ligne non définie). 

Pour tester notre programme nous créerons des instructions 


provisoires 1000, 2000, ..., 6000. Par exemple nous pouvons 
utiliser les instructions suivantes : 

1880 CLS:LOCATE 5, 12:PRINT "1000":GOT0 10000 

2808 CLS:LOCATE 5, 12: PRINT "2008":GO0T0 10008 

3000 CLS:LOCATE 5, 12: PRINT "SGG@G":GOTO 10000 

488@ CLS:LOCATE 5, 12:PRINT "40G@G":GOTO 10000 

5008 CLS:LOCATE 5, 12:PRINT "SGG0":GOT0 18009 

6808 CLS:LOCATE 5; 12: PRINT "6@00":G0TO0 18000 


10008 R$=INPUT$(1):RESTORE:GOTO 28 


Si 
le 


colonne 5, ligne 12 (LOCATE 5,12), ce qui 
branchement correct en 2000. 

Le branchement en 10000, une fois 
vérification effectué, permet de 


l'instruction 


carré 


par 
nan 


exemple 


INPUT $(1 ). 


on frappe la touche "2" ou si l'on désigne 
à l'aide du crayon optique, on devra alors obtenir 
l'effacement de l'écran (CLS) et l'affichage du message "2000" en 
confirmera 


l'affichage 
stopper le programme par 
La frappe d'une 
relance le programme en branchant en 20 pour rétablir le "menu". 


touche 


Il est toutefois nécessaire de prendre la précaution 
d'insérer l'instruction  RESTORE -(M.Ref  100)- sous peine 
d'obtenir une erreur 00 (Out of Data) en 120. Il est 
indispensable en effet de remettre le pointeur de DATA à zéro 
avant de relire les données par REAO 75. 


Oans le cas de notre programme très simple ce type de 
vérification du bloc logique est peut être superfétatoire, mais 
il peut se révéler indispensable dans des programmes plus lourds 
pour lesquels des erreurs de branchements peuvent provoquer des 
phénomènes bizarres difficiles à analyser. 


I1 nous reste maintenant à bâtir le bloc "musique". 


Il nous faut pour cela définir la chaîne de caractères 
représentant la succession des notes de chacun des airs. Chaque 
chaîne sera bâtie sous l'étiquette correspondant à chaque titre 
(1000 à 5000) puis le programme sera branché à un blos commençant 
en 10000, comportant l'instruction PLAY et le retour au "menu" en 
20. 


Le bloc "musique" se présente donc ainsi : 


1000 M$ = "O4L48TS:; DODODORE :;L723MI5L125P3L72%RE; 
L24 ;P5;L46 DOMI REREDO" 


1010 Z$ = 2Z6(@) 
102@ GOTO 10208 


2008 M$ = "O4L48TS: DOREMIDORE ; P5 REMIFA5P3FA3P3MI;5 
P3MI3P3DOREMIDORE ; P5 REMIFA; P;S03 P; DO" 


2010 Z$ = Z$(1) 
2028 GOTO 10080 


3000 M$ = “O4L4BT4 : DO; L24 : DOMIMIRE ; L4B:; MI 5L725 DO; 
L123:P3;L468;DO:L243DOMIMIRE:L72:MISL12:P;: 
LAB; MI 5L24;MIREDOMISO:L72:MI5L125P; 
L48;S0 ;L24:;SOMIDOMI $L72:RE;L12:P;L48;: 
DO; L24 : DOMIMI 5L125REDO:L24 3; MI :L48; DO: 
L123P3L483:MI3L245MI3;L125; REDO:L24; 
MIRE ;L48:; DO" 
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Lies 


Lies 


3010 Z$ = Z$(2) 

3028 GOTO 10000 

40008 M$ = "OST4L24 3 SO: 04 5 DORE 5 L4B:MIMI 3L24: 
MIREMIFASL483:MI :L24; DOMIDO:03L48:S0: 
04% RE; L24 3 REDOREMI DO“ 

4818 2Z$ = 2$(3) 

4828 GOTO 10000 

5008 M$ = “"OST4L 24: 5081 : 04 : DO3L483: RESORE :L245P: 
MIREDO:;0SL48; SILASO" 
MS = MS + "P" + MS 

5010 2Z$ = Z$(4) 

5028 GOTO 10000 

6000 CLS:SCREEN 4, 6, 6: END 

180008 CLS:LOCATE 28-LEN(Z$)/2; 12:PRINT Z$ 

10018 PLAY M$ 


10828 RESTORE:GOTO 20 


1000 
La chaîne M$ contient les notes de "Au clair de la Lune", 


Nous avons séparé les indications de durée de note (L), 
d'octave (0), de mesure (T) et les pauses (P) par des 
points-virgules (;) ceci à seule fin de clarifier la lecture 
de la chaîne bien que cela ne soit pas indispensable. 


On trouvera, dans le programme exposé au chapitre suivant, 
plus de détails sur la composition des chaînes de 
caractères représentant un air de musique. 


1010 
La variable Z$ contient le titre Z$(0) de l'air choisi. 
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Fhk 


ss 


TA 


L£is1s 
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1020 
Branchement en 10000 pour l'exécution de la musique 


2000 - 5020 
Instructions analogues pour les quatre autres chansons, 


On notera toutefois qu'en 5000 on a simplifié l'écriture 
de la chaîne M$ par une concaténation permettant de répéter 
deux fois la même séquence avec séparation par une pause 
mp"! e 


6000 
Instructions de clôture. 


a/ Efface l'écran 


b/ L'instruction SCREEN redonne à l'écran sa configuration 
initiale, caractères en Bleu (4), fond et entourage en Cyan 


(6). 


Cette instruction est indispensable car la couleur de fond 
a été fixée au Blanc (7) et celle des caractères au Noir (0) 
en 40.-Son absence conduirait à attequer le programme 
suivant evec des caractères Noirs sur un fond Blanc. 


c/ L'instruction ENO est indispensable pour éviter que le 
programme ne continue en séquence et passe à l'instruction 
10000 ! 


10000 
a/ Efface l'écran donc supprime le "menu" 


b/ Pour centrer au milieu de la ligne le titre de l'air 
choisi, il est nécessaire de calculer la position du premier 
caractère de la chaîne Z$. 


Le formule est évidente si l'on se souvient que l'écran 
dispose de 40 colonnes numérotées de O à 39 (la fonction 
LEN(Z$) -(M.Ref 128)- fournit le nombre de caractères de la 
cheîne 2$). Le titre sera donc centré sur la ligne 12. 


c/ Affiche Z$. 
10010 


L'instruction PLAY -(M.Ref 201)- permet de "jouer" l'air 
stocké dans le chaîne M$. 


Lori 


10020 

a/ Comme nous l'avons déja précisé plus haut, à l'occasion 
du programme provisoire de test du bloc logique, il est 
indispensable de remettre le pointeur de DATA à zéro avant 
de relire les données en 120. 


Le retour au ‘“menu" doit donc être précédé d'une 
instruction RESTORE -(M.Ref 100)-. 


b/ Retour à l'affichage du "menu" en 20. On notera, comme 
nous l'avons fait remarquer plus haut que le branchement se 


fait après l'étiquette 10 contenant l'instruction DIM pour 
éviter l'erreur de redimensionnement de Z$(1). 


Le programme complet est donc le suivant : 


18 DATA Au clair de la Lune, J'ai du bon tabac: 
A la claire fontaine, Sur l’Pront du Nord: 
Nous n’irons Plus au bois:DIM Z$(4) 
28 CLS:SCREEN 4, 6,6 
3S@ FOR B=Q@ TO 4 
48 Vi=4@xB+B:Y2=Y1+23: BOXF (288, Y1)-(CS11, Y2), -8: 
COLOR @, 7:LOCATE 37, SxB+2, @: PRINT CHR$(49+B) : 
PEN B:(288,Y1)-(311;, Y2) 
50 FOR J=1i TO 3 
68 YA=Y1+J:YB=Y2+J: XA=3S11+J:XB=298+J 
70 LINE (CXA, YA)-CXA, YB), B+1:LINE —-(CXB, YB), B+1 
80 NEXT J 
98 NEXT B 
108 BOXF (0. 88)-(23; 112), -8:FOR J=1 TO 3: 
LINE (23+J, 88+J)-(23+J; 112+J),0: 


LINE -CJ, 112+J), B:NEXT:COLOR @, 7: 
LOCATE 1,12:PRINT “C":PEN 5: (@, 88)-(253, 112) 
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11@ FOR B=0 TO 4 


120 Yi=40+B+15:Y2=Y1+8: X2=63+BLEN(Z$): 
READ Z$:2#(B)=2$ 


138 BOXF (48, Y1)-CX2, Y2),-8 
14@ FOR J=1 TO 3 

150 VA=Y1+J:YB=Y2+J: XA=X2+J: XB=47+J 

160 LINE (XA, YA)-(XA; YB), B+1:LINE -CXB; YB), B+1 
178 COLOR @, 7:LOCATE 7; S*xB+2:PRINT Z$ 

188  NEXT J 

198 NEXT B 

SAQ R$="":RS=INKEYS 

510 IF PTRIG GOTO 600 

S20 IF R$="" GOTO 520 


530 R=ASC (RS): 
Z=1-CR)48 AND R(S54)#CR-48) -B#CR$&="C") 


548 ON Z GOTO S00: 1000, 2000, 3000, 4000, 5000, 62000 
600 ONPEN GOTO 1000. 2000, 5000. 4000, 5000. 6000 
610 GOTO 50@ 


1000 M$ 


"O4L48TS ; DODODORE ;L72;MI:L12:P;L72%RE; 
L24 ;P5L48; DOMIREREDO" 
1010 Z$ = Z$(@) 


1820 GOTO 10000 

2008 M$ = "O4L4ST3; DOREMIDORE; P:REMIFA: P5 FAP; MI; 
P5MI5P3DOREMIDORE ;P5REMIFA: P;S03; P;DO" 

2018 Z$ = Z$(1) 


2020 GOTO 1008@ 


3008 M$ = "O4L48T4: DO: L24 : DOMIMIRE;L48:MI :L725 DO: 
L123P5$L485D05L24:DOMIMIRESL72:MI:L12:P3 
LAB; MI 5L245 MIREDOMISO:L72:MI5L125P3 
L48;S035L24 5; SOMIDOMI ;L72:RE:L12:P:L485 
DO:L24:; DOMIMI ;L125 REDO:L24:MI:L48:D0: 
L125P;L483; MI ;L245MI5L125REDO:L24t 
MIRE; L48: DO" 


3010 Z$ = Z6(2) 

3020 GOTO 10000 

4008 MS = "OSTAL24 0304 DORE LAB: MIMI ;L265 
MIREMIFAS LAB MI ;L26 ; DOMI DO: OSL48; 50; 
04 RE: L24 ; REDOREMIDO" 

4010 Z6 = Z6(3) 

4020 GOTO 10002 

5000 M6 = "OST4L24 ; SOSI : 04 :DO;L4B: RESORE 3L243P; 
MIREDO + OSL48: SILASO" 
MS = MS + “PU + MS 

5018 Z$ = Z$(4) 

5028 GOTO 10000 

6008 CLS:SCREEN 4, 6, 6: END 

18008 CLSELOCATE 28-LEN(Z#)/2, 12: PRINT Z$ 

18018 PLAY MS 


10028 RESTORE:GOTO 28 


Nous avons vu deux méthodes de choix dans un "menu", 


La méthode du crayon optique est de loin la meilleure, car 
elle ne comporte pratiquement pas de risque d'erreur de choix de 
la part de l'opérateur. Par contre la seconde méthode exige la 
lecture d'un symbole dans le menu (dans notre cas un chiffre mais 
dans le cas général ce peut être une lettre ou un groupe de 
caractères) et il est facile de commettre une erreur de lecture 
et taper un symbole à la place d'un autre. 
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Uans notre cas l'erreur n'est pas dramatique. Peu importe 
d'entendre "Au clair de la Lune" en lieu et place de "J'ai du bon 
tabac" ! Mais dans les programmes sérieux une erreur peut être 
une cause de perte de temps ou même être catastrophique, bien 
que dens un programme correctement conçu toute erreur de la part 
de l'opérateur doive être sans conséquence facheuse ou pouvoir 
être corrigée. 


Si l'on tient à utiliser la seconde méthode, il est alors 
recommandé d'utiliser comme symboles repères, des symboles ayant 
une signification rappelant le "plat" à choisir dans le menu 
(initiales par exemple), plutot que des chiffres de 1 à N. 

La détection du choix se fait alors par une variable 2 
bâtie à partir de variables logiques. 


Supposons par exemple que nous ayons retenu les symboles 
suivants : 


L T F P B C 
Nous bâtirons la variable Z par la formule : 
1 =(R$="L" )=2#(R$=UT)- ZX (RS=NFN) 4x (RE=MP" )-5*(R$="8" )-6*( R$="C") 


qui prend les valeurs 2, 3, 4, 5 , 6 ou 7 suivant que le symbole 
figurant dans R$ est L, T, F, P, B ou C et la valeur 1 en cas de 
choix d'une valeur non prévue. 


Oans ces conditions le risque d'erreur est réduit, meis il 
reste de toute façon plus important qu'avec la méthode du crayon 
optique. 


Nous allons examiner une troisième méthode qui, bien que 
n'utilisant pas la désignation directe par le crayon optique, 
n'impose pas à l'opérateur une lecture et une frappe de symbole 
au clavier. 


Le principe consiste à faire défiler un "spot" représenté 
par un symbole devant les différents "plats" du menu, à l'aide 
des Flèches Heut et Bas et, si nécessaire avec les flèches Gauche 
et Oroite. L'opérateur amène ainsi le "spot" en face du "plat" 
choisi et précise son choix en tapant une touche, par exemple la 
touche ENTREE ou le touche ACC. 


Nous allons modifier en conséquence le bloc logique 
débutant en 500. 
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Nous déplacerons par les Flèches Haut et Bas un "spot" qui 
sera centré dans l'une des "touches" carrées dessinées sur 
l'écran en face de chaque titre de chanson et numérotées de 1 à 5 
ou dans la "touche" de cloture marquée C. Pour identifier la 
“touche! où est le spot, le symbole au centre du carré (chiffre 
de 1 à 5 ou lettre C) s'affichera en Rouge (1) sur fond de 
caractère Bleu (4). 

A chaque déplacement du spot provoqué par la frappe de 
l'une des deux Flèches de déplacement vertical, le symbole à la 
dernière position du spot redeviendra Noir (0) sur fond Blanc {7) 
et le symbole à la nouvelle position passera au Rouge sur fond 
Bleu. 


500 X=1:CCe37:Lle2:26="1":GOTO 900 

510 R6S=INPUTS$ C1) : R=ASC (RS) 

5280 Z=1-CR=22)-2KCR=10)-SxCRe11) 

530 ON Z GOTO 510, 800, 600, 780 

600 X=X+1:1F X=7 THEN X=1 

610 GOTO 9300 

700 X=X-1:1F X=9 THEN X=6 

710 GOTO 900 

800 SCREEN 6, 7, 7 

810 ON X GOTO 1000, 2000, 3000, 4000, 5000, 6000 
900 COLOR 6. 7:LOCATE CC, LL:O0:PRINT 26 

910 CC=1-36#CX (6) :LL=-12#CX26)—-CSkX—-S)KCX (6) 
920 IF X=6 THEN Z$="C" ELSE Z$=CHR$(48+X) 
938 LOCATE CC, LL, 4: COLOR 1; 4:PRINT Z$ 

940 GOTO 510 
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#kk  S0D 


Less 


kAk 


Initialisation de la position du spot. 


a/ X est un compteur variant de 1 à 6, repérant ls position du 

spot. Pour X = 1 à 5 le spot est dans les "touches écran" 1 
à 5. Pour X = 6 le spot est dans la touche "C". A 
l'initialisation X est égal à 1 (nous plaçons le spot dans 


la "touche" 1"). 


b/ CC est le numéro de colonne où est placé le spot, soit CC = 
37 pour X de 1 à 5 et CC = 1 pour X = 6. A l'initialisation 
CC = 37. 


c/ LL est le numéro de ligne où est placé le spot. À 
l'initialisation LL = 2. 


d/ 2$ est le symbole à afficher au centre de la touche. À 
l'initialisation 2$ = "1". 


e/ Branchement en 900 pour afficher la première position du 
spot (après chaque commande de déplacement par l'une des 
deux Flèches, le programme est branché sur 900). 


510 


a/ Lecture de la touche du clavier frappée par l'opérateur 
-(M.Ref 174)- 


b/ R est le numéro de code ASCII correspondant à R$. 


520 
Calcul de la variable Z à partir des variables logiques, 
(R=22) (VRAI si la touche frappée est ACC, 22 étant le 
numéro de code ASCII de cette touche -(M.Ref 219)- ), (R=10) 
(VRAI si la touche Flèche Bas a été tapée) et (R-11) (VRAI 
si la touche Flèche Haut a été tapée). Z prend les valeurs 
2, 3 où 4 suivant que l'opérateur a tapé la touche ACC, la 


Flèche Bas ou la Flèche Haut et la valeur 1 pour toute autre 
touche. 


530 
Branchement : 
en 510 pour Z = 1 (erreur de frappe, retour à une 
nouvelle lecture) 
en B00 pour Z = 2 (touche ACC) 
en 600 pour Z = 3 (Flèche Bas) 
en 700 pour Z = 4 (Flèche Haut) 


Lis 


600 

La Flèche Bas a été frappée. Le compteur X est donc 
incrémenté de 1. Si X atteint la valeur 7 il est alors 
ramené à la valeur 1. 


610 
Branchement en 900 pour l'"effacement" du spot à 
l'ancienne position et son affichage à la nouvelle. 


700 

La Flèche Haut a été frappée. Le compteur X est donc 
décrementé de 1. Si X atteint la valeur 0, il est alors 
ramené à la valeur 6. 


710 
Branchement en 900 pour l''effacement" du spot à 
l'ancienne position et son affichage à la nouvelle. 


800 
Les caractères seront Noirs (0) sur fond et entourage 
Blancs (7) pour l'affichage des titres. 


810 

Suivant la valeur du compteur X, branchement aux 
étiquettes 1000 à 5000 (exécution de la musique) ou 6000 
(clôture). 


900 
. Fixe la couleur caractère au Noir (0) sur fond Blanc 
(7). 


C'est avec cette couleur que sont affichés les chiffres et 
la lettre C dans les touches où ne se situe pas le "spot, 
L'affichage du caractère Z$ avec cette couleur "effacera" le 
spot. 


b/ Positionne le curseur en colonne CC, ligne LL, CC et LL 
étant les valeurs calculées en fonction de la précédente 
valeur du compteur X. Ce sont donc les coordonnées de la 
précédente position du spot. 


c/ Affiche le caractère Z$, c'est-à-dire le caractère 
correspondant à la dernière position du spot et calculé avec 
la précédente valeur du compteur X (Les valeurs de CC, LL et 
Z$ sont calculées en 910 en fonction de X. Au début du 
Ps ha ces valeurs sont initialisées à 37, 2 et "" en 
500). 
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*Xkk 910 | 
a/ Calcul de CC en fonction de X. Pour X de 1 à 5, CC vaut 
37, pour X = 6, CC vaut 1. 


b/ Calcul de LL en fonction de X. Pour X de 1 à 5, LL vaut 
5 * X - 3 et pour X = 6, LL vaut 12. 


Ko 920 
Calcul du caractère Z$ en fonction de X. Pour X = 6, Z$ 
est le caractère "C" sinon pour X de 1 à 5, 2$ est 
CHR$(48+x), c'est-à-dire "1" pour X = 1,.., "S" pour X = 5. 


*kK 930 
a/ Positionne le curseur en CC,LL calculés en 910 


b/ Fixe la couleur caractère au Rouge (1) sur fond Bleu 
(4). C'est la couleur choisie pour faire apparaître le 
spot. 


c/ Affiche le caractère Z$. 


*k* 940 
Branche en 510 pour une nouvelle commande. 


kXHKHEX XX 


Nous venons de voir trois méthodes de choix dans un menu, 
I1 faut retenir que la méthode du crayon optique et la méthode de 
déplacement d'un spot sont les plus fiables et évitent au maximum 
les erreurs de l'opérateur. La méthode de choix par lecture et 
recopie est plus rapide à programmer, mais moins fiable et moins 
agréable pour l'opérateur. 
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3 


Test musique 


Nous nous proposons d'explorer les possibilités de 
l'instruction PLAY -(M.Ref 201)-, en particulier l'effet des 
"attributs", attaque, longueur, octave et tempo que l'on place en 
début des chaînes de notes. Nous allons pour cela bâtir un 
programme permettant de faire varier ces quatre paramètres et 
d'examiner les conséquences de ces variations sur la mélodie. 


Nous essayerons l'effet des quatre paramètres sur une gamme 
chromatique montante et une gamme chromatique descendante 
séparées par une pause. 


Les valeurs des quatre paramètres seront choisies en début 
d'essai puis les deux gammes jouées, 11 sera possible alors soit 
de recommencer un essai soit de clôturer. Lorsqu'un nouvel essai 
est tenté, les valeurs des quatre paramètres de l'essai précédent 
sont affichés et l'opérateur peut, soit conserver certains 
paramètres, soit les modifier. 


Les valeurs initiales des paramètres seront les valeurs par 
défaut, c'est à dire À = 0, L = 24, O0 = 4 et T = 5 -(M.Ref 201)- 


Le programme se composer a de trois parties, un 
"questionnaire" à remplir avec les valeurs désirées des quatre 
paramètres, un bloc où sera bâti la chaîne de caractères 
satisfaisant les réponses au "questionnaire" et où sera "joué" la 
mélodie correspondante, enfin un "menu" permettant à l'opérateur 


de poursuivre par un autre essai ou de clôturer. 
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Le premier bloc est le suivant : 


10 


M1$=" DODO#RERE#MIFAFA#SOSO#LALA#SI" : 
M2$="SILA#LASO#SOF A#FAMIREMREDO#DO":EF #&=" "a 
S+t="04D00SD0":A=0:L=24:0=4:T=S 
CLS: SCREEN 4,6,6 
LOCATE 5, S:PRINT "OCTAVE 0 Ci à S) =" 
LOCATE 5, 7:PRINT "LONGUEUR L (1 a 96) =" 
LOCATE 5, 9: PRINT "ATTAQUE A (@ a 255) =" 
LOCATE S,11:PRINT “TEMPO T Ci a 255) =" 
COLOR 1 
LOCATE 0, SPRINT USING "###":0 
LOCATE 9, 7:PRINT USING "###":L 

LOCATE 6, 9: PRINT USING "###":A 

LOCATE 0, 11: PRINT USING "###"35T 

COLOR @ 

LOCATE 27, 5: INPUT U$:IF U$="" GOTO 220 
GOSUB 1000:1IF E=1 OR VALCUS) (1 OR VAL(CU#))5 
THEN PLAY S$:LOCATE 27, S:PRINT EF$: 

GOTO 200 ELSE O=VAL (US) 

LOCATE 27, S: PRINT USING "### "s0 

LOCATE 27, 7:INPUT L$:1F L$="" GOTO 250 
GOSUB 1000:IF E=1 OR VAL(CUS) (1 OR VAL(US$))96 
THEN PLAY S$:LOCATE 27, 7:PRINT EF$: 

GOTO 230 ELSE LeVAL (US$) 

LOCATE 27, 7:PRINT USING "### "sl 


LOCATE 27, 9: INPUT A$:IF A$="" GOTO 280 


AIX 


276 GOSUB 1000: 1F E=1 OR VALCUS) (@ OR VAL CU$))255 
THEN PLAY S$:LOCATE 27, 9S:PRINT EF$: 
GOTO 260 ELSE A=VAL (US) 


280 LOCATE 27, 9:PRINT USING "### "+ 

290 LOCATE 27, 11:INPUT T$:1F T$="" GOTO 510 

300 GOSUB 1000:1F E=1 OR VALCUS) (1 OR VAL CUS) ) 255 
THEN PLAY S$:LOCATE 27, 115 PRINT EF$: 
GOTO 290 ELSE T=VAL CUS) 

310 LOCATE 27, 11:PRINT USING "##4# "ST 


320 LOCATE 20; 23 


1000 E=0 

1010 FOR I=i TO LENCUS) 

1026 Z=ASC(MIDS (US, I, 13) 

1030 IF Z(4B OR Z)57 THEN E=1:RETURN 
1048 NEXT:RETURN 


10 

a/ et b/ La chaîne M$ contient la gamme chromatique 
montante du 00 au SI. La chaîne M2$ contient la gamme 
chromatique descendante du SI au DO. Nous serons amenés à 
compléter la gamme montante par un 00 final à l'octave 
supérieure et la gamme descendante par un même DO initial. 
Mais il est nécessaire de ne les adjoindre qu'une fois 
choisie l'octave, car nous ne pouvons pas "fabriquer" un DO 
de l'octave 6. Nous verrons en 410 comment résoudre cette 
difficulté. 


c/ La chaîne EF$ contient quatre espaces destinés à 
effacer les caractères à l'écran en cas d'erreur de frappe 
détectées par le sous programme 1000. 
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d/ 1a chaîne 5$ est une chaîne de deux notes, un 0D de l'octave 


4 et un 00 de l'octave 5, que nous utiliserons comme signal 
d'alarme en cas d'erreur détectée par le sous programme 
1000. 


e/ La valeur par défaut de À est D -(M.Ref 201)- 


f/ La valeur par défaut de L est 24 


g/ La valeur par défaut de D est 4 


h/ La valeur par défaut de T est 5 


Lis 


KAA 


AA 


20 
a/ Efface l'écran 


b/ Les caractères seront Bleu (4) sur fond et entourage 
Cyan (6). 


30 - 60 

Affiche les quatre lignes (de 5 à 11) du questionnaire. 
Les valeurs limites de chacun des quatre paramètres sont 
rappelées entre parenthèses. 


70 
Passe la couleur des caractères au Rouge (1). 


La couleur de fond de caractère reste au Cyan puisque le 
second paramètre de COLOR n'est pas précisé.-(M.Ref 189)- 


80 - 110 
Affichage en colonne 0 des valeurs précédemment utilisées 
pour les quatre paramètres. 


L'instruction PRINT USING -(M.Ref 90)- permet de justifier 
les valeurs sur la droite, avec les unités en colonne 2 
(imposé par les 3 dièses de l'image utilisée). 


Les valeurs sont affichées en Rouge imposé par 
l'instruction 70 


120 
Passe la couleur des caractères au Noir (0). 


La couleur de fond de caractère reste au Cyan puisque le 
second paramètre de COLOR n'est pas précisé.-(M.Ref 189)- 


Less 


Lis 


200 
8/ Place le Curseur en colonne 27, ligne 5, c'est à dire 
après le signe = de la question posée en ligne 5, à savoir 


quelle est la valeur du paramètre 0. 


b/ Affiche un point d'interrogation en colonne 27 et le 
curseur en colonne 30 puis met le programme en attente 
jusqu'à ce qu'une chaîne de caractères terminée par un 
MENTREE" ait été tapée au clavier -(M.Ref 65)-. 


La chaîne est stockée dans la varible chaîne U$. 


c/ Si la chaîne U$ est une chaîne nulle, c'est à dire si 
la réponse de l'opérateur a été un simple "ENTREE", le 
programme saute l'instruction 210 et passe directement en 
220. 


Or en 210 le contenu de U$ est testé par le sous programme 
1000, puis chargé dans la variable O après transformation en 
variable numérique par l'instruction VAL. 


Autrement dit une réponse par "ENTREE" ne modifie pas la 
valeur du paramètre. 


C'est pourquoi les valeurs  précedentes de quatre 
paramètres sont affichées à gauche du questionnaire pour 
permettre à l'opérateur de ne modifier que les paramètres 
qui l'interessent et ceci de façon aisée en particulier sans 
avoir à répéter les valeurs qui n'ont pas à être modifiées. 


On retiendra cette méthode de modification des paramètres 
à choisir par l'opérateur au début d'un programme. 


Si de nombreux choix, avec variations de quelques 
paramètres seulement, sont à faire, la tâche de l'opérateur 
en est considérablement simplifiée. Le succès d'un programme 
dépend bien souvent de l'observation de principes aussi 
simples que celui-ci. 


210 

a/ Branchement au sous programme 1000 pour vérifier que la 
chaîne entrée en U$ ne contient que des chiffres à 
l'exclusion de tout autre caractère. Si le test est négatif 
la FE E prend la valeur 1 (voir le sous programme 
1000). 
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KAX 


Lin 


Lis 


b/ Si E est égal à 1 (test 1000 négatif, c'est à dire 
chaîne U$ contenant des caractères qui ne sont pas des 
chiffres) ou si la valeur numérique représentée par la 
chaîne U$ et calculée par la fonction VAL -(M.Ref 151)- 
n'est pas dans la fourchette autorisée (1 à 5), les deux 
notes 00 d'alarme sont joués (PLAY 5$), quatre espaces 
d'effacement sont affichés à partir de la colonne 27 (LOCATE 
27,5:PRINT EF$), ce qui efface le message erroné et le 
programme est rebranché en 200 pour une nouvelle réponse. 


c/ Si les tests sont positifs (réponse plausible) 
(instruction ELSE-(M.Ref 61)- ) la chaîne de caractères U$ 
est transformée en valeur numérique stockée dans la variable 
0 -(M.Ref 151)-. 


220 
a/ Place le curseur en colonne 27, ligne 5 (là où est 
actuellement affiché le point d'interrogation). 


b/ Affiche la valeur de O retenue en plaçant le chiffre 
des unités en colonne 29. On notera que l'image utilisée 
dans l'instruction PRINT USING comporte les 3 signes dièses, 
suivis de trois espaces qui sont donc affichés dans les 
colonnes 30 à 32, effaçant les caractères qui s'y trouvaient 
éventuellement suite à l'introduction de données par 
l'instruction INPUT. 


230 - 310 

Ces instructions sont analogues aux trois instructions 
précédentes. Elles permettent de recueillir les valeurs des 
trois autres paramètres L, À et T après avoir vérifié leur 
vraissemblance. 


320 
Place le curseur en colonne 20, ligne 23, On constatera 
que le curseur clignote en suivant la mesure de la musique. 


1000 

Ouverture du sous programme de test de la chaîne U$. La 
variable ÆE de signal d'erreur est mise à zéro (pas 
d'erreur). 


1010 

Ouverture d'une boucle en I, I étant le compteur de 
caractères de la chaîne U$. On fait donc varier I de 1 à la 
longueur de U$ calculée par LEN(U$). 


Li ns 


Lis 


1020 
Z est le numéro de code ASCII du caractère de rang I de 


U$, ce ceractère étent extrait de U$ par la fonction MIOÿ 
-(M.Ref 130)- 


1030 

Si le numéro de code ASCII Z est inférieur à 48 (code de 
"O") et supérieur à 57 (code de "9") la variable E est posée 
égale à 1 (signel d'erreur puisque le caractère testé n'est 
pas un chiffre) et la sortie du sous programme est provoquée 
par l'instruction RETURN. Il est en effet inutile de 
poursuivre le test une fois une première erreur détectée. 


1040 
a/ Fermeture de la boucle en I. 


I1 est inutile de préciser la variable sur laquelle on 
boucle puisqu'il n'y a qu'une seule boucle en service. 


b/ Instruction de fin de sous programme -(M.Ref 57)- 


LR EE 


Le bloc de calcul de la chaîne à jouer par PLAY est le suivant : 


Lie) 


400 0$="0"+CHRS (48+0) : 
LÉ=STRECL) :L$S="L'+RIGHTS(LS, LENCLS)—-1)t 
AS=STRE CA) 2 AS="A"+RIGHTÉ CAS, LENCAS) —1) : 
TÉESTRE CT) 2 TS="T"+RIGHTÉSCTS, LENCT$) —1) 


410 DOF$="":1F O(S5 THEN DOF$="0"+CHR$(49+0) +"DO" 


428 PLAY O$+LS+A8+T$+M1$+D0F$+"L9EP"+ 
L$+D0F $+0$+M2$ 


400 

Il s'agit de fabriquer quatre chaînes présisant les 
quatre  commendes d'octave (0), de durée de note (L), 
d'attaque (A) et de tempo (T) concaténant une lettre (0, L, 
A, T) et les valeurs numériques choisies, transformées en 
chaînes de caractères. 
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Lis 


a/ La valeur numérique 0 est transformée en caractère par 
CHR$S(4B+0) (48 est le numéro de code ASCII de zéro, ainsi 
pour 0-5 par exemple le caractére est "5" (code 48+5=53). 0$ 
est alors le résultat de la concaténetion du caractère "O" 
et de CHR$(48+0). 0$ est alors la chaîne de commande de 
niveau d'octave. 


b/ et c/ La valeur numérique L est transformée en chaîne 
L$ per la fonction STR$ -(M.Ref 147)-. La chaîne qui en 
résulte débute par un espace qui est la place réservée au 
signe (un espace à la place du signe + où signe -). Üans 
notre cas la variable transformée est positive, donc la 
chaîne commence toujours par un espace. Avant de concaténer 
cette chaîne derrière le caractère "L", il est nécessaire 
de supprimer cet espace. C'est le but de l'instruction 
RIGHTS -(M.Ref 136)- qui extrait la partie droite de L$ sur 
une longueur égale à la longueur de L$ (LEN -(M.Ref 128)-) 
moins un. On obtient en définitive la chaîne de commande L$ 
de durée des notes. 


Les instructions suivantes sont analogues et permettent de 
calculer les chaînes de commandes d'attaque A$ et de tempo 


T$. 


410 

Il nous faut calculer maintenant la chaîne correspondant 
eu DO de l'octave supérieure. Cette note ne peut être 
calculée que si le niveau d'octave choisi est inférieur au 
niveau 5, car il n'y e pes de O0 d'octave 6. Nous posons 
donc le chaîne DDF$ (mnémonique pour 00 final) égale à une 
chaîne nulle e priori et si O est inférieur à 5, O0F$ est 
obtenu en  concaténant le caractère "0", le caractère 
CHR$(49+0), qui est le niveau d'octave choisi augmenté de un 
(49 est le numéro de code ASCII de 1) et la chaîne "O0". 


420 
La chaîne de caractères suivant l'instruction PLAY est 


composée : 

- des quatre chaînes de commandes 0$, L$, A$, T$ imposent 
le niveau d'octave, la durée des notes, l'attaque et le 
tempo, 

- de la chaîne M1$, gamme chrometique montante, 


- de la chaîne D0F$, DO de l'octave supérieure s'il existe, 


destiné 


- de 


la chaîne "L96P" qui provoque un pause, entre les deux 


gammes, de durée égale à 9,6, 


- de 


la chaîne de commande L$ qui rétablit la durée 


initiale des notes, modifiée par la commande "Lg6" 
précédant la pause, 


- de 


la chaîne D0F$, D0 de l'octave supérieure s'il 


existe, 
pour débuter la gamme descendante, 


- de 


la chaîne de commende 0$ qui rétablit le niveau 


d'octave, modifié par la chaîne DOF$, 


- de 


Il 


s 
a 


la chaîne M2$, gamme chromatique descendante. 


XKX OK KO %X à 


nous reste maintenant à examiner le dernier bloc, 
s 


proposer un "menu" à l'opérateur lui permettant de 


choisir entre la poursuite des essais ou la clôture. 


Lis 


920 


930 


600 


500 


CLS: SCREEN 6: 4° 4: LOCATE 5; 1DE PRINT "Pour" 


LOCATE 5, 13:PRINT "Un autre essai Tapez “:: 
COLOR 0; 3: PRINT "ENTREE" 


LOCATE 5, 15:PRINT "Cioturer Tapez ss 
COLOR 96, 6: PRINT "C" 


R$S=INPUTS(1):ON 1-CR6="C")-2# (ASCCRS) =13) 
GOTO 530, 600, 20 


CLS:SCREEN 4; 6, 6: END 


a/ Efface l'écran. 


b/ 


Fixe la couleur des caractères au Cyan (6) sur fond et 


entourage Bleu (4). 


c/ et d/ Affiche le message "Pour" en colonne 5, ligne 10. 
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Li 510 - 520 ; 
Affiche les deux choix proposés à l'opérateur, poursuite 
ou clôture. 


On notera la façon dont sont représentées les deux touches 
de commandes retenues pour le choix, caractères Noirs (0) 
sur fond Jaune (3), pour la touche "ENTREE", caractères 
Noirs (O0) sur fond Cyan (6), pour la touche "C", de façon à 


simuler la couleur et la forme des deux touches du clavier à 
utiliser. 


Là encore on peut considérer ces détails comme peu 
importants. Il font pourtant toute la différence entre un 
programme réberbatif et un programme agréable à utiliser. 


4% 630 
a/ Recueil de la réponse R$ de l'opérateur. 


b/ Suivant que la touche frappée par l'opérateur est une 
touche quelconque, la touche "C" ou la touche "ENTREE", 
branchement en 530 pour une nouvelle réponse, en 600 pour la 
clôture, en 20 pour un nouvel essai. 


*#kx 600 
a/ Efface l'écran. 


b/  Rétablit les couleurs normales écran pour une 
utilisation ultérieure. 


c/ L'instruction ENO est indispensable pour éviter que le 
programme ne continue en séquence et n'attaque les 
instructions 1000 et suivantes du sous programme test, 
provoquent le message d'erreur RG (RETURN without GOSUB, 
RETURN sans avoir rencontré d'instruction GOSU8). 


Nous laissons le lecteur utiliser le programme pour 
apprécier de lui même l'effet des paramètres d'attaque et de 
tempo plus subtil que celui des paramètres durée ou niveau de 
l'octave. 


11 constatera qu'il n'y e pas intéret à s'éloigner beaucoup 
des valeurs par défeut, O pour l'attaque et 5 pour le tempo sous 
peine d'obtenir des effets curieux sinon inesthétiques ! 


Le progremme définitif est donc le suivant : 
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M1$="DODO#RERE#MIFAFA#SOSO#LALAYNSI ": 


M2$="SILA#LASO#SOF A#FAMIRE#REDO#DO":EF$=" "s 
S$="04D005D0":A=0:L=24:O=4:T=5 


CLS:SCREEN 4, 6, 6 

LOCATE 5, 5S:PRINT "OCTAVE 0 (1 a 5) =" 
LOCATE 5, 7:PRINT "LONGUEUR L (1 à 96) =" 
LOCATE 5; 9: PRINT "ATTAQUE À (Q a 255) =" 


LOCATE 5, t1:PRINT “TEMPO T (1 a 255) =" 


78 COLOR 1 


86 LOCATE 6, S:PRINT USING "###":0 


90 LOCATE 0, 7: PRINT USING "###'":5L 


268 
278 


LOCATE 0, S:PRINT USING "“###":A 

LOCATE 6, 11:PRINT USING "###"35T 

COLOR 0 

LOCATE 27,5:INPUT U$:1F U$="" GOTO 220 

GOSUB 1000:1F Ez1 OR VAL(US) (1 OR VAL(CUS))5 
THEN PLAY S$:LOCATE 27,5:PRINT EF$: 

GOTO 200 ELSE O=VAL (US$) 

LOCATE 27, 5:PRINT USING “### "5 

LOCATE 27, 7:INPUT L$:1IF Lé="" GOTO 250 

GOSUB 1000:1F E=1 OR VAL (US$) (1 OR VAL (US) ) 96 
THEN PLAY S$:LOCATE 27, 7:PRINT EF$: 

GOTO 230 ELSE L=VAL (US$) 

LOCATE 27, 7:PRINT USING ‘“##4# "5 

LOCATE 27,9:INPUT A$:IF A$="" GOTO 280 

GOSUB 1000: 1F E=1 OR VAL CUS) (@ OR VAL (US)) 255 


THEN PLAY S$:LOCATE 27, 9:PRINT EF$: 
GOTO 266 ELSE A=VAL (US$) 
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280 LOCATE 27, 9S:PRINT USING "##4 "SA 

298 LOCATE 27, 11: INPUT T$:IF T$="" GOTO 310 

300 GOSUB 1000:IF E=1 OR VAL CUS) (1 OR VAL (US) ) 255 
THEN PLAY S$:LOCATE 27, 11:PRINT EF$: 
GOTG 290 ELSE T=VAL CUS) 

318 LOCATE 27, 11:PRINT USING "### "ST 

320 LOCATE 20, 23 

408 0$="0"+CHR$(48+0) : 
LEE=STRE CL) 2 LS="L"+RIGHTS(LS, LENCLS)-1): 
AS=STRS CA) :AS="A"+RIGHTSCAS, LENCAS) -1) : 
TÉS=STRÉCT) 2 T$="T"+RIGHTECTS, LENCTS)-1) 

410 DOF6="":1F O(S THEN DOF$="0"+CHR$(49+0)+"D0O" 


420 PLAY O$+L6+A$+T$+M1$+D0F$+"LAGP"+ 
L$+D0F$+0$+M2$ 


500 CLS:SCREEN 6, 4, 4: LOCATE 5, 18: PRINT “Pour 


910 LOCATE 5, 13:PRINT "Un autre essai Tapez ‘":: 
COLOR 6, S: PRINT "ENTREE" 


920 LOCATE 5,15:PRINT "Cioturer Tapez "35 
COLOR 6, 6G: PRINT "C" 


930 R$S=INPUTS(1):ON 1-CR$="C")-2#(ASCCRS)=13) 
GOTO 530, 600, 20 


600 CLS:SCREEN 4; 6; 6:END 

1000 E=08 

1010 FOR I1=1 TO LENCUS) 

1020 Z=ASC(CMIDS CUS, I, 1) 

1030 IF Z(48 OR Z)57 THEN E=1:RETURN 


1040 NEXT:RETURN 


Avant d'aborder des programmes plus ambitieux, exécutons un 
programme simple à écrire, encore qu'il ne recèle de nombreux 
pièges, mais aisés à detecter après essai. Nous proposons de 
bâtir une mire analogue aux mires de télévision. Cela aura au 
moins le mérite de fournir un outil de test pour notre récepteur 
vidéo. 


Nous recommandons au lecteur, avant d'eborder cet exercice, 
de lire soigneusement l'Annexe I consecrée à la gestion des 
couleurs, car les notions qui y sont exposées sont indispensables 
à la compréhension de la programmation. 


La mire sera essentiellement composée d'un cadre 
rectangulaire Rouge entourant tout l'écran, d'une grille Bleu, 
constituée de 19 lignes verticales et de 11 lignes horizontales 
et d'une plage circulaire Bleu au centre de l'écran. 


A la partie supérieure de la plage circulaire, nous 
inscrirons MIRE et T0O7 en caractères double taille. A la partie 
inférieure, nous placerons les quatre flèches verticales et 
horizontales que nous avons appris à tracer dans le premier 
exercice, toujours en taille double (pourquoi pas !). 


Au centre de la plage circulaire Bleu, nous tracerons huit 
plages carrées, avec les huit couleurs disponibles, en plaçant en 
leur centre le numéro correspondant à chaque couleur, chaque 
chiffre ayant lui-même la couleur du carré suivant. 


Enfin nous disposerons sur les bords de la grille, toujours 


en caractères double taille, les 10 chiffres et les 26 lettres de 
l'alphabet. 
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et 


Par 
c'est 


tons de cette idée générale de construction de la mire 
en "cours de route" que nous serons capables de préciser 


les diverses positions des symboles et des graphismes. 


Att 


aquons tout d'abord la construction du cadre Rouge, de 


la grille Bleu et de la plage circulaire Bleu. 
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10 


100 
110 
120 
130 
140 


150 


160 


CLS:SCREEN 4; 6, G:LOCATE 0, @, 0 

XG=160:Y8=96 

BOX (8, @)-(319; 192),1 

BOXF (X0-80, YG-80) -(X0+88, Y2+80),6 

FOR Y=16 TO 176 STEP IG:LINE (8, Y)-(319, Y) :NEXT 
FOR X=16 TO 64 STEP 16:LINE CX:, 1)—CX; 191): NEXT 
FOR X=80 TO 224 STEP 16: 

LINE CX, 1)-CX, YO-80) : 

LINE CX, Y8-79)-(CX, Y8+80),-5: 

LINE (CX, YB8+81)-CX: 191) :NEXT 


FOR X=240 TO 304 STEP 16: 
LINE €CX:1)-CX: 191) :NEXT 


R=78:P=57. 3 

FOR T=1 TO 45 STEP 2 
TT=T/P:C=COSCTT) = S=SINCTT) 
X1=XO+RKC:V1=YO-RES : X2=XD-RKC:Y2=YB+RES 
XS=XO+R4S : YS=YB-REC 5 X4=XD—-RKS: Y4=YO+ RC 


BOXF (X1,Y1)-CX2, V2), -5: 


NEXT 


Le rs 


Lis 


Lis 


10 
a/ Effece l'écran. 


b/ Fixe la couleur des caractères qui seront Bleu (4) sur 
fond et entourage Cyan (6). 


c/ Place le curseur en colonne 0, ligne 0 et l'efface. 


20 
Oéfinit les deux constantes XO et YO, coordonnées du 
centre de l'écran 


30 
Trace un cadre Rouge (1) avec le coin haut-gauche en 0,0 
et le coin bas-droite en 319,192. 


La distance entre les traits constituant la grille étant 
de 16 points, il est possible de tracer 12 "ceses" de 16 
points de heut dans le sens verticel. Oans ces conditions si 
le premier trait est à l'ordonnée 0, le dernier trait est à 
l'ordonnée 12 x 16 = 192, ce qui explique l'ordonnée du coin 
bes-droit de notre cadre. 


De même il est possible de trecer 20 "cases" de 16 points 
de large dans le sens horizontal. Si le premier trait 
vertical est à l'abscisse O0, le dernier treit verticel est 
alors à l'abscisse 16 x 20 = 320. Nous avons triché d'un 
point en mettant le bord vertical droit en 319 (il n'y e pas 
de point 32D !). 
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Nous avons l'intention de placer une plage circulaire au 
centre de l'écran et d'y tracer des symboles et des 
graphismes. 


Or on sait (voir Annexe I) que l'on a intérêt à tracer, 
en couleur de fond, les plages sur lesquelles on doit 
dessiner. La plage circulaire sera donc tracée en Bleu fond 
(-5). Mais l'ensemble de l'écran est obligatoirement en 
couleur fond (imposée par l'instruction SCREEN en 10). Pour 
éviter que le cercle Bleu (fond) ne vienne "baver" sur le 
fond général (ce qui se traduireit par un "cercle" avec des 
crans), il est nécessaire de trecer eutour du futur cercle 
une plage cerrée en couleur carectère Cyan (6). Cette plage 
ne sera pas visible sur l'écran car tracée en couleur 
carectère Cyan sur couleur fond Cyan. Mais elle est 
indispensable pour éviter les "bavures", 
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Lie 
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Pour s'en bien convaincre il suffit d'essayer de tracer le 
cercle avec les instructions 100 à 160 en sautant les 
instructions 40 à 680 par une instruction 


35 GOTO 100 


Une fois l'effet de cette instruction essayé, effaçons-la 
et revenons à la construction du cercle. 


Le cercle sera centré sur le point de coordonnées X0,Y0 et 
son rayon sera de 78 points.Cette dernière valeur a été 
choisie expérimentalement au voisinage de 80, de façon à 
obtenir une figure se rapprochant le plus possible d'un 
cercle avec le moins de “merches" possible. Dans ces 
conditions il est nécessaire de tracer notre plage en 
couleur caractère Cyan de telle sorte que le cercle se situe 
en entier à l'intérieur. Ceci explique les valeurs 80 
figurant dans l'instruction 40. Le lecteur aura intérêt à 
faire varier les valeurs du rayon et de la plage pour bien 
voir l'effet de ces paramètres. 


50 

a/ ouverture d'une boucle en Y variant de 16 à 176 avec un 
pas de 16, permettant de tracer les 11 lignes horizontales 
Bleu de la grille. 


b/ Tracé de la ligne horizontale d'ordonnée YŸ entre les 
points d'abscisses 0 et 319. 


La couleur de la ligne est le Bleu; la valeur du paramètre 
couleur n'ayant pes été précisée, c'est la couleur caractère 
définie per l'instruction SCREEN qui est retenue. 


On aurait pu envisager de ne tracer la ligne horizontele 
qu'entre les points 1 et 318 pour éviter de faire déborder 
les horizontales Bleu sur le cadre Rouge. Le lecteur pourra 
vérifier que l'instruction LINE (1,Y)-(31B,Y) ne modifie pas 
le résultat. En effet les points d'abscisses 1 à 7 étant 
colorés en couleur caractère Bleu, imposent la couleur Bleu 
au point d'abscisse 0 qui appartient au même bloc de huit 
points, 


Si l'on tient à ne pes déborder sur le cadre Rouge, il est 
nécesseire de trecer les horizontales en couleur fond Bleu, 
et non pas en couleur cerectère, entre les points 1 et 318. 


Il nous faut alors écrire l'instruction 50 sous la forme : 


50 FOR Y=16 TO 176 STEP AG:LINE (0,Y)-(319,Y),-5:NEXT 


I1 faut noter que cette dernière solution n'est acceptable 
que parce que nous traçons une ligne horizontale, 


Dans ce seul cas en effet les "bavures" d'un ligne tracée, 
couleur fond sur couleur fond, ne se voient pas. 


Le lecteur pour s'en convaincre n'a qu'à essayer de tracer 
une droite de 0,0 à 319,199, par exemple en couleur fond sur 
couleur fond. 


Tapons les trois instructions suivantes et essayons les en 
faisant RUN 1000. 


1000 CLS:SCREEN 4; 6: 6 
1018 Y1=0:Y2=199 
1020 LINE C@, Y12-C319; Y2), -5 


Si par contre nous supprimons le paramètre de couleur -5, 
nous obtenons un résultat correct sans "bavures" (mais non 
sans escaliers"), De même les "bavures" sont sans effet 
sur le graphisme pour une horizontale (avec Y2 = 0 par 
exemple). 


N'oublions pas d'effacer ces trois étiquettes par OELETE 
1000-1030 après essai ! 


Le lecteur choisira la solution qu'il préfère ! 
c/ Fermeture de la boucle en Ÿ 


60 - 80 

Il s'agit de tracer maintenant les 19 verticales Bleu, de 
16 en 16, depuis l'abscisse 16 jusqu'à l'abscisse 304. La 
programmation ne sera pas la même suivant que nous serons 
sur un fond en couleur type fond ou sur un fond en couleur 
type caractère. Il est en effet nécessaire, comme nous 
venons de le montrer ci-dessus, de tracer les lignes en 
couleur de type différent du "fond" sur lesquelles elles 
sont placées. 
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Pour les abscisses X de 16 à 64 et de 240 à 304, le fond, 
quelle que soit l'ordonnée YŸ, est de couleur type fond. Par 
contre pour les abscisses X, comprises entre 80 et 224, le 
fond est en couleur type caractère pour les ordonnées Ÿ 
comprises entre YO - 79 et YO + 80, et en couleur type fond 
à l'extérieur de cet intervalle. Ceci explique les 
instructions sous les étiquettes 60 et 80, où les verticales 
sont tracées en couleur caractère Bleu (valeur 4 prise par 


défaut). 


Par contre à l'étiquette 70, il est nécessaire de faire la 
distinction entre les verticales dans la plage YO - 79 et YO 
+ 80, à tracer en couleur Bleu fond (-5), et celle à 
l'extérieur de la plage, à tracer en couleur Bleu caractère 
(4), c'est à dire sans préciser le paramètre couleur, la 
valeur 4 étant retenue par défaut. 


Ko XX Où * 


Parvenu à ce stade de la programmation, il est utile de 
tester les instructions que l'on vient d'écrire et de s'amuser 
(1) à faire varier quelques paramètres pour juger de l'effet 
produit, ce qui ne peut manquer d'être instructif. 


Que le lecteur ne s'y trompe pas ! Les instructions 10 à 80 
sont évidentes à justifier, une fois qu'elles ont été écrites et 
essayées. Il est infiniement moins évident de les écrire, a 
priori, sans erreurs. Ce n'est qu'après essai que l'on peut 
s'écrier "Bien sûr ! Cette instruction est erronnée" (en général 
le programmeur utilise un langage moins châtié). L'auteur 
lui-même n'est parvenu au résultat "évident" qu'après de 
nombreux tatonnements. Mais c'est là l'avantage du Micro. On peut 
essayer de nombreuses fois, car l'on dispose de la réponse 
immédiatement. Ce n'est toutefois pas une raison pour justifier 
le M"bidouillage" (que l'Académie nous pardonne ce terme de 
métier) et faire n'importe quoi en espérant tomber par hasard sur 
la bonne solution ! 


Après ces considérations pratiques, attaquons la 
construction de la plage circulaire. 


Rappelons quelques données mathématiques pour ceux qui ne 
manipulent pas les équations tous les jours. 


Appelons C le centre du cercle (coordonnées p,q dans un 
système d'axes Ox,Dy), R son rayon, A le point à l'extrémité 
droite du rayon horizontal (coordonnées p+R,q), M un point du 
cercle et t l'angle ACM. On sait que les coordonnées x et y du 
point M sont : 


x=p+R,.cost 


g+R.sint 


« 
(0 


Il nous faut transposer ces équations aux coordonnées écran en 
se souvenant 


a/ que les angles doivent être exprimés en radians 


b/ que las ordonnées écran Ÿ croissent vers le bas de l'écran, 
donc en sens contraire de l'ordonnée y dans le systéme xDy. 


#k4 100 
a/ R est le rayon du cercle 


b/ P est le rapport 180/3.14159 permettant de transformer 
des degrés en radians. 


Rappelons qu'il est préférable d'exprimar les constantes 
sous forme d'une variable alphanumérique plutôt que sous 
forme d'une chaîne de chiffres, surtout à l'intérieur d'une 
boucle, car on évite ainsi à l'interprèteur de transcrire la 
chaîne de chiffres en valeur numérique à chaque passage sur 
l'instruction. 


#Xk4 110 
Ouverture d'une boucle en T (angle t des équations du 


s 


cercle). On fait varier T de 1 à 45 degrés. 


Nous allons en effet tracer une première plage 
rectangulaire colorée en Bleu (fond, -5),avec un coin en M 
et un deuxième coin en N symétrique de M par rapport au 
centre C. 


Une deuxième plage rectangulaire de même couleur, aura un 
coin en M', symétrique de M par rapport à la première 
bissectrice des axes Cx et Cy, et un deuxième coin en N', 
symétrique de M' par rapport au centre C. 
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Si t est l'angle repérant M, l'angle t' repérant M' est 
égal à 90 - t. L'angle u repérant N est 180 + t et l'angle 
u' repérant N' est 180 + t'. 


Ceci explique que nous n'ayons à faire varier T que de 1 à 
45 degrés seulement, tout en obtenant la totalité de la 
plage circulaire, grâce au tracé des deux plages 
rectangulaires, la première correspondant aux angles de 1 à 
45 degrés, la seconde correspondant aux angles de 89 à 45 
degrés. 


Rappelons enfin les formules classiques de trigonométrie : 
cos (90 - t) = sint sin (9 -t) = cost 
cos (180 + t) = - cos t sin (180 + t) = - sin t 

On a enfin fait varier T avec un pas de 2. 


Il est en effet inutile de calculer les points M de degrés 
en degrés étant donné la définition de l'écran. 


On constate expérimentalement que la figure obtenue avec 
un pas de 2 ne présente pas plus d'"escaliers" qu'avec un 
pas de 1 et le temps de tracé est divisé par deux. Par 
contre Un pas supérieur à 2 conduit à une fiqure trop 
dentelée. 


120 
a/ TT est la valeur de T, exprimée en radians. 


b/ et c/ C et 5 sont le cosinus et le sinus de TT. 


L'utilisation de ces variables intervient dans le calcul 
des coordonnées des quatre points M, M', N et N'. 


Il est inutile de calculer les valeurs du sinus et du 
cosinus des angles repérant les trois points M', N et N' 
puisque ces valeurs se déduisent des valeurs du sinus et du 
cosinus de t comme nous l'avons rappelé plus haut. 


N'oublions pas que le calcul d'une ligne trigonométrique 
prend un temps non négligeable et que le tracé du cercle 
serait retardé notablement si nous calculions les sinus et 
cosinus des quatre angles. 


#k% 130 
Calcul des coordonnées X1, Y1 de M, X2, Y2 de N. 


On notera le signe - figurant dans la formule donnant Y1 
(Y1=YO-R*S) pour tenir compte du sens de variation des Ÿ sur 
l'écran. 


#kk 140 
Calcul des coordonnées X3, Y3 de M', X4, Y4 de N'. 


##k% 150 
Tracé des deux plages rectangulaires en Bleu fond -5. 


*kk 160 


Fermeture de la boucle en T 


HRK EX K 


Après avoir testé cet ensemble d'instructions, qui 
constitue un "bloc" exécutable, nous allons inscrire les divers 
symboles à l'intérieur de la plage circulaire Bleu fond et placer 
les huit plages colorées. 


200 ATTRB 1; 1:COLOR 7, 4: LOCATE 16, 43 PRINT "MIRE" 
218 LOCATE 16, 6: PRINT “TO 7" 


220 AS=CHR$(22) :COLOR 5: 4:LOCATE 16, 20: 
PRINT A$5","5A$:"-"5A65"."5A$S:"/":ATTRE 0,0 


300 BOXF (112, 64)-(215,127).4: 
BOX (103, 63)-(C216; 128):1 


310 FOR J=0 TO 1 
320 FOR I1<0 TO 3 


330 X=113+241:C=15+3%] :Uzl+4ey : CCæi+U: CCN=-CC: 
IF CC=6 THEN CC=0 


348 BOXF CX: 70+30mJ)-(X+22, 92+30*%J) ; CCN 


350 LOCATE C; 1@+4*J:COLOR CC, U: PRINT CHR$(48+U) 
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360 NEXT I 
370 NEXT J 
380 BOX (112, 198)-(135: 122), 7 


200 
a/ Fixe la taille des caractères à la taille double. 


b/ Fixe la couleur des caractères au Blanc (7) sur fond 
Bleu (4). 


c/ et d/ Affiche la chaîne "MIRE" en plaçant le coin 
bas-gauche du M (taille double) en colonne 16, ligne 4 


210 
Affiche la chaîne "TO 7" avec le coin bas-gauche du T 
(taille double) en colonne 16, ligne 6. 


220 

a/ La variable A$ est le caractère controle de numéro de 
code ASCII 22, c'est à dire le caractère correspondant à la 
touche ACC. On a vu -(M.Bas 1)- que ce caractère placé 
devant certains autres caractères permettait d'afficher des 
caractères spéciaux, en particulier les quatre flèches. 


b/ Fixe la couleur des caractères au Magenta (5) sur fond 
Bleu (4). 


c/ Place le curseur en colonne 16, ligne 20 


d/ Affiche les quatre flèches obtenues en concaténant le 
caractère A$ (touche ACC) avec les caractères ",", non, n,n 
et "/", On remarquera que la concaténation a été commandée 
avec des point-virquies (;) et non avec le signe plus (+). 
Ceci est possible après la commande PRINT, la concaténation 
n'étant pas calculée mais seulement exécutée en affichant 
les caractères successivement sur l'écran. 


300 

a/ Nous allons tracer huit plages rectangulaires avec les 
huit couleurs disponibles en plaçant en leur centre un 
chiffre représentant le numéro correspondant de la couleur. 
Ce chiffre sera affiché, comme tout caractère, en couleur 
caractère. Il est donc nécessaire que la couleur de la plage 
soit du type fond. 


Or la plage circulaire Bleu a déjà été tracée en couleur 
fond. IL importe donc de placer autour de la zone que 
devront occuper nos huit plages colorées, une plage de 
couleur Bleu, mais de type caractère. C'est l'objet de la 
première instruction de 300. 


b/ Pour délimiter, de façon "artistique" la zone des huit 
plages colorées, nous plaçons un cadre Rouge (1) défini par 
la seconde instruction. 


310 
Ouverture d'une boucle en J. 


J varie de 0 à 1. 
J est le numéro de la "ligne" des quatre plages colorées. 


320 
Ouverture d'une boucle en I. 


I varie de 0 à 3. 


I est le numéro de "colonne" de l'une des quatre plages 
colorées sur une même ligne. 


330 
a/ X est l'abscisse du bord gauche de la plage de rang I. 


Chaque plage a 22 points de large et est séparée de la 
plage suivante par 2 points (22 + 2 = 24). 


b/ C est le numéro de colonne écran du centre de la plage 
de rang I où sera placé le numéro de la couleur de la plage. 


c/ U est le numéro de la plage (0 pour la première en haut 
à gauche, 7 pour la dernière en bas à droite). La plage 0 
sera Noire fond (-1), la dernière Blanche fond (-B). 


d/ et e/ CC est la couleur caractère de la plage suivant 
la plage de rang U et CCN la couleur fond de la plage de 
rang U. 


Pour I=0 et J-0, première plage en haut et à gauche (U = 
0), CCN est égal à -1 (Noir fond) et CC est égal à 1 (Rouge 
caractère); pour 1=2 et J=0 (plage suivante, U = 1), CCN est 
égal à -2 (Rouge fond) et CC est égal à 2 (Vert caractère) 


RAA 


Léon 


f/ Si CC calculé est égal à huit (dernière plage,U = 7), 
il est nécessaire de ramener cette valeur à 0, numéro de 
couleur caractère du Noir. La plage "suivante", qui est la 
première (U = ©), est en effet de couleur Noir fond, comme 
nous venons de le voir en (e) ci dessus. 


340 

Tracé de la plage colorée rectangulaire en couleur fond 
CCN, de largeur 22 points et de hauteur 22 points. La ligne 
graphique supérieure est d'ordonnée Y = 70 pour la rangée 
supérieure (J = 0) et Y = 100 pour la rangée inférieure (J - 
1). 


350 

a/ place le curseur au centre de la plage de rang U, en 
colonne € (calculé en 330,b) et en ligne 10 pour la première 
rangée (J = 0) ou en ligne 14 pour la seconde (J = 1). 


U/ Fixe la couleur de caractère à CC (calculée en 330,4) 
et la couleur de fond de caractère à U (calculé en 330,c). 
Rappelons que la couleur de fond de caractère dans une 
instruction COLOR est fixée par le second paramètre exprimé 
avec un numéro de couleur positif. Pour la première plage (U 
= 0, couleur Noir fond CCN= -1), le chiffre représentant le 
numéro de couleur de la plage (0 en l'occurence) doit être 
tracé en couleur caractère Rouge (CC= 1) sur fond de 
caractère Noir (U = 0). 


b/ 4B + U est le numéro de code ASCII du chiffre U. On 
affiche ainsi le chiffre 0 dans la première plage et le 
chiffre 7 dans la dernière. Pour la fonction CHR$ voir 
-(M.Ref 113)- 


360 - 370 
Fermeture des deux boucles en I et J. 


380 

La première case de la deuxième rangée (U = 4) de couleur 
fond Bleu (-5), n'apparait pas sur le fond général Bleu 
(Couleur caractère 4 rappelons-le). Il est donc plus 
esthétique de la faire apparaitre en l'entourant d'un cadre 
de couleur Magenta (5). 


KE XX 


Il 


exécutable, 
ma juscules 


"lignes" 


nous reste maintenant, après avoir testé le dernier bloc 


à tracer, en caractères double taille, les vingt six 


de l'alphabet, réparties sur les première et dernière 


dernière "colonnes! 


4900 


420 


430 


440 


450 
460 
470 


480 


490 


ATTRB 1,1:COL0R 4,6 


FOR 1:90 TO 19:LOCATE 21,1: 
PRINT CHR$(6S+1) :NEXT 


FOR 1=0 TO S:LOCATE 21+14, 23: 
PRINT CHR$(6S+1) 3:NEXT 


FOR I1=0 TO 4:LOCATE @, 2x1+9: 
PRINT CHR$(46+I) :NEXT 


FOR 1=5 TO 9:LOCATE 38, 2 (1-5) +9: 
PRINT CHR$(48+1I) :NEXT 


BOX (@, 8)-1319, 192); 4:LINE (0, 176)-(319, 176) 
LINE (@, 18)2-(319; 1B):LINE (0, 176)-(319, 176) 


FOR X=16 TO 304 STEP 16: 
LINE (X»@)2-CX, 1B):LINE CXr 176)2-—CX, 192) :NEXT 


FOR Y=64 TO 126 STEP 16: 
LINE (@ Y)-(16: YI'LINE (304, Y)-C319 Y) 2NEXT 


LINE (504: @)-(304: 192) 


a/ Fixe la taille des caractères à la taille double. 


*#t 400 
b/ 

(6). 

#4k 410 


Fixe la couleur des caractères au Bleu (4) sur Cyan 


de la grille et les dix chiffres sur les première et 


Affiche les 20 premières majuscules sur la première ligne 
de la grille. 


Rappelons que 65 est le numéro de code ASCII de A; ainsi 
CHR$(65+1) est la lème majuscule. 
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Less 


420 - 440 
Instructions analogues à la précédente pour l'affichage 
des 6 dernières majuscules et des 10 chiffres. 


On remarquera que le fait d'afficher un caractère taille 
double dans une case de la grille, efface les lignes à 
gauche et au dessus du caractère. 


Pour les caractères affichés sur la colonne de droite de 
la grille, il y a également effacement de la ligne verticale 
à droite. 


En effet un caractere taille double occupe daux blocs de 
huit points. Les abscisses des premiers points des premiers 
blocs sont des multiples de huit et les ordonnées de la 
ligne supérieure sont également des multiples de huit. Ceci 
explique l'effacement des lignes gauche et supérieure de la 
portion de grille autour d'un caractère puisque ces lignes 
ont été tracées avec de telles coordonnées. 


Enfin la dernière ligne verticale à droite de la grille a 
une abscisse de 319 (rappelons que nous avons dû tricher 
puisqu'il n'y a pas de points d'abscisse 320). Les points de 
cette verticale, au niveau d'un caractère tracé sur la 
dernière colonne, appartiennent donc au bloc caractère et 
sont par suite effacés à l'affichage du caractère. 


Il nous faut donc rétablir la grille 1à où elle a été 
effacée. 


450 

Rétablit le cadre extérieur. On remarquera que la couleur 
en est Bleu (4). Il est en effet impossible de tracer les 
parties verticales du cadre en une autre couleur sous peine 
de voir la moitié gauche des caractères à gauche et la 
moitié droite des caractères à droite changer de couleur, 


460 - 490 

Ces instructions, de forme analogue à celle des 
instructions 50 à 80, rétablissent les portions de grille 
effacées par l'écriture des caractères. 


À À À X XX 


Après avoir testé ces dernières instructions constituant un 
bloc exécutable, il nous faut terminer le programme par quelques 


instructions permettant à l'opérateur de faire disparaitre la 
mire. 


Nous ferons apperaitre sur la mire, le message "Tapez 
ENTRÉE", en affichant "ENTREE" avec les couleurs de la touche, 
c'est à dire caractères Noir (0) sur fond Jaune (3). 


Sur commande de la touche "ENTREE" par l'opérateur, 
détectée par une instruction INPUT$(1}, nous ferons disparaitre 
la mire en la faisant se déplacer lentement vers le haut, grâce 
à l'instruction CONSOLE. 


560 ATTREB 6, G:LOCATE 14, 175 COLOR 1,4: 
PRINT “Tapez “1:COLOR 6, S:PRINT "ENTREE" 


510 R$S=INPUTS(1):1F ASCCRS) () 13 GOTO 510 


520 CONSOLE , , , 1: COLOR 4,6: 
FOR I=0 TO SO:PRINT:NEXT:CONSOLE , , , BICLS 


Affichage en caractères de teille normale, Rouge (1) sur 
fond Bleu (4) de la chaîne "Tapez ". 


On notera que la chaîne "Tapez" est suivie d'un espace, 
ce qui permet, l'ordre PRINT étant suivi d'un point-virgule 
(5), d'afficher la chaîne "ENTREE" en séquence, sans saut à 
la ligne. La chaîne "ENTREE" est affichée en Noir (0) sur 
fond Jaune (3). 


##* 510 
Mise en attente du programe jusqu'à ce que l'opérateur 
tape sur la touche "ENTREE" et sur elle seule. Toute autre 
touche (de numéro de code ASCII différent de 13) provoque un 
branchement au début de l'instruction pour une nouvelle 
lecture. 


4%: 620 


a/ Nous trouvons ici l'un des nombreux cas d'utilisation 
de l'instruction CONSOLE -(M.Ref 35)-. 
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Le quatrième paramètre est mis égal à 1, ce qui mt 
l'écran en mode "défilement doux". On notera que pour bien 
préciser que c'est le quatrième paramètre qui est mis à 1, 
l'instruction CONSOLE est suivie de trois virqules (,) puis 
du LL " $ 


b/ Remet les couleurs caractères au Bleu (4) et la couleur 
fond au Cyan (6). 

Cette instruction est indispensable sous peine de voir 
apparaitre un fond Jaune (4), imposé par le dernier COLOR en 
500, après disparition de la mire. 

On aurait pu penser à mettre ici une instruction SCREEN 
4,6,6. Il faut prendre garde à ce que l'effet de SCREEN est 
immédiat et provoque le passage de tous les caractères au 
Bleu et de tous les fonds au Cyan. Par contre l'instruction 
COLOR n'a d'effet que sur les affichages de caractères 
suivants. 


c/ d/ et e/ Boucle produisant 30 sauts de ligne, 
provoquant la montée en "défilement doux" de la mire. 


f/ Remet l'écran en défilement normal. 
Cette instruction est indispensable, sous peine de ne 
pouvoir lancer le programme suivant qu'avec le "défilement 


doux". 


g/ Efface l'écran. 


En définitive le programme est le suivant : 


18 CLS:SCREEN 4,6: 6:LOCATE 6, 0,0 

20 X8=168:Y8=96 

30 BOX (6, 8)-(319, 192),1 

48 BOXF (CX8-80, YG-82)-(X8+88, YU+80),6 

SO FOR Y=16 TO 176 STEP 16:LINE (@, Y)-(319, Y):NEXT 
68 FOR X=16 TO 64 STEP 16:LINE CX: 1)2—CX, 191):NEXT 


786 FOR X=288 TO 224 STEP 16: 
LINE CX?r 1)—CX: YD-8D) : 
LINE CX; Y8—-79)-CX, Y8+80), -5: 
LINE (CX, Y@+81)-CX, 191) :NEXT 


88 FOR X=248 TO 304 STEP 16: 
LINE CX;, 1)-CX: 191) :NEXT 


100 R=78:P=57. 3 

110 FOR T=1 TO 45 STEP 2 

126 TT=T/P:C=COSCTT) :S=SINCTT) 

130 X1=XO+RHkC: Y1=YB-ReS : X2=XB—-RHC: Y2=YB+R4S 
140 XSEXD+R#S:YS=YB-RHC: X4=XD—-RHS: Y4=YD+RHC 


158 BOXF CX1,Y1)-CX2:Y2),: -5: 
BOXF CX3, Y3)-CX4, Y4), -5 


168 NEXT 
208 ATTRE 1,1:COLOR 7; 4:LOCATE 16, 4: PRINT "MIRE" 
210 LOCATE 16, 6:PRINT "TO 7" 


226 AS=CHR$S(22) :COLOR 5, 4: LOCATE 16, 28: 
PRINT A$:","3A$5"—-":A$:"."5;A$S:"/":ATTRE 0,0 


300 BOXF (112,64)-(215:127),4: 
BOX (105,635)-(216; 128), 1 


310 FOR J=8 TO 1 
320 FOR I=0 TO 3 


330 X=113+24#1:C=15+3%I °U=1+4%]:CC=1+U: CCN=-CC: 
IF CC=8 THEN CC=8 


340 BOXF CX, 70+38*xJ) -(X+22, 92+30%J) ; CCN 
350 LOCATE C; 18+4#J:COLOR CC, U:PRINT CHR$C48+U) 
360 NEXT I 


370 NEXT J 
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62 


420 


430 


BOX (112, 1@8)-(135, 122), 7 
ATTRE 1, 1: COLOR 4,6 


FOR I=0 TO 19:LOCATE 2*%1l,1: 
PRINT CHR$S(6S+I) :NEXT 


FOR I=0 TO SeLOCATE 2*1+14,23: 
PRINT CHR$(85+1) :NEXT 


FOR 1=0 TO 4:LOCATE 6, 2x1+93 
PRINT CHR$(4B+I):NEXT 


FOR I=5 TO 9:LOCATE 38, 2x(1-5)+9: 
PRINT CHR$(48+1) :NEXT 


BOX (@, @)-(319, 192), 4%LINE (CO, 176)-(C319, 176) 
LINE (0, 16)-C319, 16) LINE (6, 176)-(319, 176) 


FOR X=16 TO 304 STEP 16: 
LINE (X, 8)-CX, 16) :LINE (CX; 176)-CX; 192) :NEXT 


FOR Y=64 TO 128 STEP 16: 
LINE (@, Y)-(16, Y:LINE (384, Y)-(319; YD:NEXT 


LINE (304, 8)-(304, 192) 


ATTRB 6, GB: LOCATE 14, 17:COLOR 1,4: 
PRINT "Tapez ";:COLOR 6, 3:PRINT "ENTREE" 


RS=INPUT$(1):IF ASCCR$S) () 13 GOTO 510 


CONSOLE ; » » 1:COLDR 4,6: 
FOR I=8 TO SO: PRINT:NEXT:CONSOLE , , , B:CLS 


) 


Conception 
de caractères graphiques 


Nous savons qu'il est possible de définir puis d'utiliser 
des caractères graphiques venant compléter les caractères 
typographiques disponibles. Il est ainsi loisible de créer des 
alphabets grec, hébreu ou russe ou de créer des symboles 
mathématiques permettant une meilleure présentation sur écran. 


La "fabrication" d'un caractère est précisée dans le manuel 
de référence. -(M. Ref 100)- 


Résumons rapidement la méthode. 


On dessine le graphique dans une matrice B lignes, chaque 
ligne étant composée de B carrés, chaque carré représentant un 
point de l'écran. On marque chaque carré faisant partie du 
graphisme. Pour chaque ligne on calcule la valeur correspondant 
au nombre binaire obtenu en prenant 1 pour un carré marqué et 0 
pour un carré non marqué. On obtient ainsi B valeurs binaires 
(que l'on peut transcrire en valeurs décimales), que l'on classe 
dans l'ordre du haut vers le bas du graphisme. 


On définit ainsi le caractère numéro N (N peut varier de D 
à 127) par l'instruction: 


OEFGR$(N) = (liste) 


où la liste est constituée des B valeurs déterminées précédemment 
en les séparant par des virgules. 


Il est préférable de donner des valeurs décimales car cela 


prend moins de place et comporte moins de risques d'erreur de 
frappe: il est plus facile de taper 179 que 4810110011. 
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Une fois le caractère N ainsi défini en début de programe 
on peut l'utiliser par une instruction: 


PRINT GR$(N) 


Attention! Il ne faut pas oublier de réserver de la place 
en mémoire par une instruction CLEAR placée en début de programme 
-(M. Ref 32)-. 


I1 est recommandé de placer l'instruction CLEAR en tout 
début de programme car elle provoque en outre l'effacement de 
toutes les variables précédemment définies ou calculées (nous y 
reviendrons lors des explications détaillées des instructions). 


Si par exemple nous voulons créer les vingt quatre lettres 
de l'alphabet grec, nous placerons l'instruction CLEAR ,,24 
(notez les deux virgules) suivie des vingt quatre instructions 
OEFCR$(I), avec I variant de O0 à 23. 


Nous trouverons un exemple d'utilisation de ces 
instructions dans le programme CLAVIER. 


La difficulté dans la création de graphismes vient de ce 
qu'il n'est pas évident de prévoir quelle "allure" aura 
réellement le caractère, une fois présenté à l'écran. Le 
changement d'échelle entre la matrice tracée sur une feuille de 
papier et le carré de B x B points d'écran est trop important 
pour évaluer correctement l'effet produit. 


Nous nous proposons donc d'écrire un programme qui nous 
permette 


- de placer, à l'aide du crayon optique, nos petits carrés 
sur une matrice B sur 8 assez grande affichée sur 
l'écran, 


- de faire le calcul des huit nombres caractéristiques, 

- de tracer le caractère sur l'écran (à l'échelle normale 
dans un carré B x B points d'écran et à l'échelle double 
dans un carré de 16 x 16 points) 

- et enfin de mettre en mémoire les huit nombres dès que 


l'on obtient un résultat satisfaisant, avant de passer à 
la conception du caractère suivant. 
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En fin de création de tous les caractères, on réaffichera 
les séries de valeurs caractéristiques pour permettre de les 
noter (une autre version du programme permettra de les relever 
directement sur l'imprimante). 


L'écran étant composé de 25 lignes et de 40 colonnes, nous 
tracerons une matrice carrée de B cases sur 8 cases, chaque case 
occupant 3 lignes et 3 colonnes, de telle sorte que nous 
représenterons une case "occupée" en y plaçant au centre un carré 
“hlein" de B points sur B points (ce carré plein est un caractère 
a dont les huit nombres caractéristiques sont tous égaux 
à 255). 


On effacera une case occupée en y plaçant un carré "vide" 
de B points sur 8 points (ce carré vide est un caractère 
graphique dont les huit nombres caractéristiques sont tous égaux 
à D). 

Le carré plein, GR$(0), est alors défini par l'instruction: 


OEFGR$(O) = 255, 255, 255, 255, 255, 255, 255, 255 


puisque chacune des huit lignes du caractère est représentée par 
le nombre binaire 11111111 soit 255. 


Le carré vide (ou caractère d'effacement), GR$(1), est 
défini par l'instruction: 


OEFGR$(1 ) = 0, 0, 0, 0, 0, 0, 0, 0 
puisque chacune des huit lignes du caractère est représentée par 


le nombre binaire 00000000 soit 0. 


Nous matérialiserons la matrice par une grille de 9 lignes 
horizontales et de 9 lignes verticales, chaque ligne étant 
éloignée de la ligne précédente par 3 x B = 24 points d'écran. 


La grille se présente alors comme indiqué sur la figure 
(Page 67), avec le coin haut-gauche placé en X = 56 et Y = O. 


Le marquage du carré, en colonne 2 ligne 3 de la matrice, 
se fera donc par une instruction LOCATE 11,7 suivie d'une 
instruction PRINT GR$(0O). 
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O'une façon générale le marquage du carré en colonne C, 
ligne L de la matrice se fera par une instruction LOCATE CC,LL 
avec C.C=3xC+Setll=3xL - 2. 


Pour noter que le carré en colonne C, ligne L de la matrice 
est marqué, la variable A(C,L) prend la valeur 1, sinon elle 
prend la valeur 0. Chaque fois que l'on bâtira un nouveau 
caractère il sera nécessaire d'effacer tous les marquages sur la 
grille et de remettre à O0 tous les A(C,L). 


Pour piloter le programme, nous placerons 3 "boites" sur la 
gauche de l'écran, marquées par les trois lettres GC,S et F. 


La désignation par le crayon optique de la boite G (pour 
graphique) provoquera le calcul des huit valeurs caractéristiques 
du caractère, leur affichage à droite de l'écran en face de 
chaque ligne de la matrice et l'affichage du caractère en bas et 
à gauche de l'écran en taille normale et en taille double. 

Les huit valeurs caractéristiques du caractère de numéro NG 
sont stockées dans la variable Z(L,NG) où L varie de 1 à 8 et N6 
de O pour le premier caractère à une valeur maximale de 127. 


La désignation au crayon optique de la case S (pour 
suivant) effacera la matrice, remettra à zéro les A(C,L) et 
incrémentera de une unité l'indice repère NG du caractère 
graphique (les huit valeurs de Z(L,NG) pour le caractère que l'on 
vient de bâtir sont alors définitivement stockées). 


Enfin la désignation au crayon optique de la case F (pour 
fin)  provoquera la récapitulation des résultats (ou leur 
impression sur l'imprimante). 


Ces principes étant adoptés, il nous reste à établir le 
programme les traduisant en instructions utilisables par notre 
T07. 


On prendra garde à ne pas croire que les dispositions 
adoptées pour la présentation de la matrice, des "boites" de 
commandes 6, S et F et pour la présentation des résultats ont été 
déterminées ex abrupto. En réalité un certain nombre d'essais ont 
été nécessaires pour parvenir à un résultat satisfaisant sur les 
plans esthétique et pratique. O'autres présentations sont 
possibles. Chacun pourra les modifier à sa convenance à condition 
de modifier la suite du programme en conséquence (cela 
constituera par ailleurs un excellent exercice!}). 


Lignes Lignes Colonnes matrice 
écran matrice 


X=56 X=24B 

Y=0 Y=0 
o Maps pe de du ie Be Pl a di 
1 1 ! ! ! ! ! ! ! ! ! 
2 ! ! ! ! ! ! ! ! ! 
3 RÉ OO D De 
4 2 ! ! ! ! ! ] ! ! ! 
5 ! ! ! ! ! ! ! ! ! 
6 DR UE CA I ON C4 4 
7 3 ! EX ! ! ! ! ! ! ! 
B ! ! ! ! ! ! ! ! ! 
9 RQ Ton Po où 4 
10 à ! ! ! ! ! ! ! ! ! 
11 ! ! ! ! ! ! ! ! ! 
12 ET 
13 5 ! ! ! ! ! ! ! ! ! 
14 ! ! ! ! ! ! ! ! ! 
15 er s ! É ! : ! ! ! ! 
16 6 ! ! ! ! | ! ! ! ! 
17 ! ! ! ! ! ! ! ! ! 
18 Fe CC UE CO Co ce AC 
19 7 ! ! ! ! ! ! ! ! ! 
20 ! ! ! ! ! ! ! ! ! 
2 Rp 
22 B ! ! ! ! ! ! ! ! ! 
23 ! ! ! ! ! ! ! ! ! 
24 X=56 X=24B 

Y=192 Y=192 
Colonnes 1 1 1 2 2 2 2 
écran 8 1 4 7 0 3 6 9 


- OESSIN OË LA MATRICE - 
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Nous allons tout d'abord étudier le premier bloc 
programme permettant de bâtir la grille. 


100 
110 


CLEAR ;,3 
DEFINT A-Z:DIM A(8, 8),Z(8, 127):N6= -1 


NG=NG+1:CLS:SCREEN 1,6, 6G:LOCATE 32, 0: 
PRINT USING "GR$###":; NG:COLOR 4 


DEFGR$S(1)= 0, 0. ©, ©, 6, @, G, 0: 
DEFGR$(0)= 255, 255, 255, 255, 25% 255: 259» 299 


FOR I= 6 TO 8 
X=24%1+5E 

LINE CX, @)-CX; 192) 
NEXT 

FOR I= @ TO 8 
Y=24%I 


LINE (56; Y)-(248; Y) 


126 NEXT 


150 ATTRIB 1,1:BOX (@, @)-(32;, 32): 


140 
150 


160 
170 
180 


LOCATE 1:2,@:PRINT "G" 
BOX (6, 48)-(32;, 72) :LOCATE 1, 7:PRINT "S" 


BOX (6, 88)-(32, 112): 
LOCATE 1,12:PRINT "“F'":ATTRE 6,0 


FOR I=i TO 8:FOR J=1 TO 8:A(I, J)=OG:NEXT J,I 
BOX (6, 8)-(319, 199) 


BEEP:FOR I=0 TO 100:NEXT:BEEP 


du 


Luss 


10 
L'instruction CLEAR,,3 -(M.Ref 32)- 


-d'une part efface toutes les variables et c'est pourquoi 
nous la plaçons en début de programme de façon à ne pas 
provoquer de catastrophes par effacement de variables 
préalablement définies ou calculées. 


-d'autre part réserve 3 places pour les caractères 
graphiques (soit une place pour GR$(0) qui est le carré 8 x 
8 plein, une place pour GR$(1) qui est le carré 8 x 8 vide 
et une place pour le caractère GR$(2) qui sera défini par 
l'opérateur en cours d'éxécution). 


On n'oubliera pas les deux virgules avant le "3", 


Toute instruction CLEAR fixe trois paramètres par CLEAR 
1,J,K. 


Oans notre exemple nous n'avons fixé que la valeur de K 
(soit 3) qui est le nombre de caractères graphiques. C'est 
pour préciser que la valeur 3 choisie était le nombre de 
caractères, que nous l'avons fait précéder des deux 
virgules. 


I est le nombre de places mémoires réservées pour les 
manipulations de chaines de caractères. 

Nous ne manipulons pas de chaines de caractères, cette 
réservation n'est donc pas utile (la valeur prise par défaut 
pour I est 300). 


La valeur de J est l'adresse maximale que peut utiliser 
l'interpréteur BASIC. 

Nous n'utilisons aucun sous programme en assembleur ni 
fichiers binaires. Aussi n'est-il pas nécessaire de fixer la 
valeur de J. Oans ce cas l'interpréteur BASIC utilise toute 
le place mémoire disponible. 


20 

a/ L'instruction OEFINT A-Z -(M.Ref 40)- conduit à 
n'utiliser que des variables entières d'où un gain de place 
mémoire pour les tableaux A(C,L) et Z(L,NG). 


N'oublions pas qu'une variable réelle simple précision 
occupe 4 octets alors qu'une variable entière n'occupe que 2 
octets. Le gain n'est pas considérable, sauf lorsque nous 
utilisons des tableaux. 
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Les variables A(C,L) et Z(L,NG) (voir paragraphe (b) 
suivant) nécessitent respectivement la réservation de 9 x 9 
= 81 et 9 x 128 = 1152 places mémoires soit en tout 1233 
places qui représentent l'occupation de 2466 octets en 
variables entières et de 4932 octets en variables réelles. 

On voit tout de suite le gain de mémoire (2466 octets) à 
n'utiliser que des variables entières. 


b/ L'instruction OIM A(8,8),Z(8,127) -(M.Ref 46)- réserve 
(8 + 1) x (8 +1) = 81 places mémoires pour A(C,L); Cet L 
peuvent ainsi varier de 0 à 8; nous n'utiliserons pas la 
valeur 0 car il est plus commode de numéroter les lignes de 
1 à 8 plutôt que de D à 7. 


Nous remarquerons que lorsque l'on manque de place mémoire 
il y a intérêt à utiliser les valeurs 0 des indices 
(surtout sur les tableaux jouant sur plus de deux indices). 


L'instruction OIM réserve en outre (8 + 1) x (127 + 1) = 
1152 mémoires pour la variable Z(L,NG), L pouvant varier de 
0 à 8 et NG de O à 127 (on constate ici que nous gâchons 
128 places mémoires inutilisées pour la valeur 0 de L). 


c/ Nous initialisons le compteur NG des caractères à la 
valeur -1. 


Cette initialisation est nécessaire car à l'instruction 30 
suivante (qui sera l'instruction de retour une fois défini 
le caractère, voir étiquette 1010), NG est incrémenté de une 
unité. Ainsi le premier caractère construit aura le numéro 
de compteur 0 et ses valeurs caractéristiques stockées dans 
les 8 variables Z(L,0) avec L variant de 1 à 8. 


30 
a/ Incrémentation du compteur NG. 


b/ L'instruction CLS -(M.Ref 34)- efface l'écran 


c/ L'instruction SCREEN 1,6,6,-(M.Ref 193)- impose des 
caractères Rouge (1) sur écran Cyan (Bleu clair) (6) avec un 
cadre extérieur Cyan (6). Cette instruction est nécessaire 
pour préciser la couleur de l'écran et du cadre extérieur. 
Nous modifierons ultérieurement la couleur des caractères 
par l'instruction COLOR (voir le paragraphe (f) de cette 
instruction). 


d/ L'instruction LOCATE 32,0 -(M.Ref 72)- place le curseur 
en colonne 32, ligne O (donc en haut et à droite de 
l'écran). 


e/ L'instruction PRINT USING avec une image composée de la 
chaine GR$ suivie de trois caractères dièses -(M.Ref 90)- 
affiche à l'écran le message GR$ avec le G en colonne 32, 
ligne O (imposé par le LOCATE précédent) et inscrit la 
valeur numérique de NG (3 chiffres au plus) avec le chiffre 
des unités en colonne 37. Les 3 places pour les 3 chiffres 
de NG sont précisées par les 3 caractères dièses de l'image. 
Ainsi en début de programme GR$ 0 sera affiché en Rouge sur 
fond d'écran Bleu. 


f/ L'instruction COLOR 4 -(M.Ref 189)- change en Bleu la 
couleur des caractères qui seront affichés après cette 
instruction. 


On notera que les deuxième et troisième paramètres qui 
fiqurent normalement dans une instruction COLOR ne sont pas 
indiqués. 


Oans ce cas la couleur du fond de caractère est prise 
égale par défaut à la dernière couleur de fond de caractère 
préalablement définie par une précédente instruction COLOR 
ou, ce qui est notre cas, à la couleur de l'écran imposée 
par l'instruction SCREEN. 


On prendra garde à ne pas confondre la couleur du fond de 
caractère et la couleur de l'écran: le fond de caractère est 
le rectangle de 8 x 8 points (ou 16 x 16 pour les grands 
caractères) dans lequel est inscrit le caractère. C'est la 
couleur de ce rectangle qui est fixée par le deuxième 
paramètre de COLOR indépendemment de la couleur générale de 
l'écran (voir Annexe I). 


40 
Les deux instructions OEFGR$(1) et OEFGR$(O) -(M.Ref 190)- 
définissent GR$(1), le carré vide 8 x 8, et GR$(0), le carré 
plein. 


50-80 

Ces quatre instructions permettent de tracer 9 lignes 
verticales entre les points d'ordonnées Y=0 et Y=-192 avec 
des abscisses X variant de 24 en 24 depuis X=56 jusqu'à X= 
192+56 = 248 
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On aurait pu obtenir le même résultat par la suite 
d'instructions suivantes: 


50 FOR X=56 TO 248 STEP 24 
60 LINE (X,@)-CX: 192) 


7@ NEXT 


En pratique il est plus commode de conserver les 
instructions précédentes car elles permettent de faire 
varier simplement la position de la grille verticale au 
moment de la mise au point du programme (recherche de la 
position de matrice la plus commode et la plus esthétique). 


Pour la boucle FOR NEXT -(M.Ref 54)-, on notera que 
l'instruction 80 se réduit à NEXT, et non pas NEXT I, ce qui 
est licite, puisqu'il n'y a qu'une seule boucle en service. 


Pour l'instruction LINE (70) -(M.Ref 187)- on n'a pas 
précisé la valeur de la couleur (4 pour le Bleu) puisque la 
couleur des caractères a déjà été précisée par l'instruction 
COLOR 4 en 30 (f). 


90 -1 20 

Ces quatre instructions analogues à S0-80 permettent de 
tracer 9 lignes horizontales entre les points d'abscisses X 
= 56 et X= 24B avec des ordonnées Ÿ variant de 24 en 24 
depuis Y= O jusqu'à Y= 192. 


Là encore on aurait pu simplifier avec: 
90 FOR Y=0 TO 192 STEP 24 

100 LINE (56: Y)-(248: Y) 

110 NEXT 


130 

a/ L'instruction ATTR8 1,1 -(M.Ref 26)- fixe la taille des 
caractères qui s'inscriront dans un carré de 16 x 16 points 
d'écran. Cela permettra de tracer les caractères 6,S et F 
destinés à la commande, avec une taille qui les assimile à 
une "touche" sur l'écran. 


Las d 


b/ L'instruction BOX (0,0)-(32,32) -(M.Ref 187)- dessine 
un cadre carré de 32 points de coté avec le coin supérieur 
gauche au point 0,0 (coin supérieur gauche de l'écran). La 
couleur du cadre n'a pas été précisée (comme pour 
l'instruction LINE en 70 et 110 qui a la même syntaxe) car 
nous la désirons Bleu comme pour les caractères. 


c/ L'instruction LOCATE 1,2,0 -(M.Ref 72)- place le 
curseur en colonne 1, ligne 2 de l'écran. Le dernier 0 
impose au curseur de ne plus être visible. La position du 
curseur n'est en effet plus utile puisque nous 
n'interviendrons pas avec le clavier mais avec le crayon 
optique). 


d/ L'instruction PRINT "G" -(M.Ref 87)- affiche le 
caractère G avec le carré bas-gauche des quatre carrés 8 x 8 
points constituant le carré 16 x 16 dans lequel s'inscrit le 
caractère en colonne 1, ligne 2 (imposé par le LOCATE 1,2,0 
précédent). Ainsi le caractère G se trouve centré dans le 
cadre 32 x 32 points dessiné par l'instruction 130 (b). 


140-150 
Instructions analogues à 130 permettant de tracer les 
"touches" S et F au dessous de la touche G. 


160 


Oouble boucle permettant de mettre à zéro les 64 valeurs 
du tableau A(1,J). 


Cette instruction ne serait pas nécessaire si l'on ne 
bâtissait qu'un seul caractère puisque toutes les variables 
sont initialisées à zéro par l'instruction RUN. 


Par contre pour dessiner un nouveau caractère il est 
nécessaire d'annuler préalablement les A(I,J). 


On notera l'instruction NEXT J,I qui est équivalente aux 
deux instructions NEXT J:NEXT I. 


On prendra garde à bien écrire J et I dans cet ordre pour 
respecter l'emboitement des deux boucles en Jet I. 


170 
Trace le cadre délimitant la partie utile de l'écran. 


L'objectif en est esthétique plutôt que fonctionnel. 
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*X#4k 1680 : 
L'instruction GEEP -(M.Ref 30)- produit un son court au 
haut-parleur. 


La boucle de retardement FOR 1-0 TO 100:NEXT impose un 
certain délai entre le premier 8ip et le second. En son 
absence on obtient un 8ip théoriquement deux fois plus long 
qu'un Bip unique mais qui, en pratique, ne s'en distingue 
pas. 

Ce double Bip est destiné à signaler à l'opérateur que la 
mise en place de la matrice est terminée (la remise à zéro 
du tableau A(I,]) demande un délai court mais perceptible). 


Si l'on désire un signal plus intense on peut remplacer 
l'instruction 180 par la suivante: 


180 FOR I=0 TO SO:BEEP:NEXT 


qui produit un signal continu dont la durée est imposée par 
la borne supérieure de la boucle en I. 


Le programmeur choisira par essais successifs la valeur 
qui lui semble la plus adaptée. 


RÉ *X *% 


L'ensemble des instructions 30 à 180 permet donc de mettre 
en place la matrice et les touches de commande G, S et F. 


C'est maintenant l'occasion pour le programmeur d'essayer 
le programme. 


Cela lui permet d'éliminer les erreurs de syntaxe dues en 
général à des fautes de frappe (parenthèses remplacées par un 8 
ou un 9 par oubli de la touche majuscule, virgules oubliées, 
point-virgule et deux-points intervertis, etc..). 

Cela lui permet également d'apprécier l'esthétique et la 
commodité de la présentation. Il peut préférer déplacer la 
matrice à droite ou à gauche, placer les touches G, S et F 
ailleurs etc. Cela n'empèchera pas des modifications après essais 
d'exploitation (on peut alors estimer plus commode une autre 
disposition), mais cela permet de poursuivre la mise au point sur 
des bases plus solides. 
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Pour bien identifier ce bloc d'instructions ayant une 


fonction de dessin, nous allons poursuivre la numérotation des 
étiquettes en sautant à l'étiquette 200 (souci de clarté de 
présentation du programme, ce qui n'est pas inutile lorsque l'on 
est amené à effectuer des améliorations ultérieures). 


Lux 


208 INPUTPEN X:Y 

210 FOR J=1 TO 10:IF PTRIG GOTO 21Q ELSE NEXT J 
220 IF X(@ OR Y(@ GOTO 280 

230 IF X(33 GOTO 1000 


240 C=INTCCX-56)/24)+1:L=INT(Y/24)+1: 
CC=3#C+5:LL=3#L-2 


250 IF C{i OR C)8 OR L({1 OR L)8 GOTO 200 
268 LOCATE CC; LLE PRINT GR$(CACC; L)) 

276 ACC: L)=-CACC; L)=0) 

280 GOTO 200 


200 

L'instruction INPUTPEN X,Y -(M.Ref  63)- permet de 
recueillir les coordonnées X et Y du point de l'écran sur 
lequel le crayon optique a été appuyé (l'information en X et 
Y n'est prise en compte que si l'interrupteur du crayon 
optique est fermé, c'est-à-dire si le crayon a été appuyé 
sur l'écran). 


Si l'interrupteur a été fermé par appui sur une surface 
quelconque en dehors de la zone de travail de l'écran 
(c'est-à-dire à l'extérieur du cadre défini par 
l'instruction 170), X et Y prennent la valeur -1. Cette 
remarque nous sera utile pour expliquer l'instruction 220. 


210 

Supposons que le crayon optique soit manipulé 
maladroitement et que l'opérateur, tout en plaçant le crayon 
devant la zone appropriée, appuie rapidement deux fois sur 
l'interrupteur. 
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Or il se trouve que les instructions 220 à 280, destinées 
en général à afficher un carré plein (ou à l'effacer) dans 
la case de la matrice pointée par le crayon, sont exécutées 
très rapidement avec retour à l'instruction 200 (par 
l'instruction 280) pour une nouvelle lecture de position. 
Tout porte à croire que la deuxième lecture de X et de Ÿ 
effectuée en 200 à la deuxième fermeture maladroite de 
l'interrupteur produira l'effet contraire de la première 


lecture et l'annulera. 


Il est donc nécessaire d'établir une courte temporisation 
pendant laquelle toute action sur l'interrupteur sera sans 
effet. 


C'est l'objet de l'instruction 210. 
Une boucle en J est déclenchée par !: 
FOR J=1 TO 10 


C'est elle qui assure la temporisation, le temps pour 
la machine de compter de 1 à 10. Mais le compteur est remis 
à 1 si au cours du comptage l'interrupteur est fermé, 
c'est-à-dire si le crayon est à nouveau appuyé. 


C'est l'objet de la deuxième instruction de 210. 
IF PTRIG GOTO 210 ELSE NEXT J 


(voir -(M.Ref 135)- pour PTRIG), qui renvoie à la première 
instruction de 210 (c'est-à-dire à la mise à 1 du compteur 
J) si PTRIG est égal à Vrai (-1), donc si l'interrupteur est 
fermé, sinon poursuit la boucle en J, 


La valeur 10 choisie pour la fin du comptage de 
temporisation a été déterminée expérimentalement. Elle ne 
retarde pas trop l'affichage et évite l'effet de rebond du 
crayon ce que ne permettrait pas une valeur plus faible. 
Mais rien n'empèche de choisir une valeur différente mieux 
adaptée à chaque opérateur. 


220 

Renvoie à la lecture de X et Y (instruction 210) si 
l'interrupteur a été fermé en appuyant le crayon optique en 
dehors de la zone de travail écran (l'instruction INPUTPEN 
X,Ÿ renvoie X= -1 et YŸ= -1 dans ce cas -(M.Ref 63)-). 


kAk 


Lans 


230 

Si la valeur de X relevée par l'instruction 200 est 
inférieure à 33, c'est que le crayon optique a été appuyé 
sur la gauche de l'écran dans la zone des "touches" G, S au 
F. 0Oans ces conditions le programme saute à l'instruction 
1000 où l'on identifiera la touche choisie par un test sur 
la valeur de Y. 


Remarque. 


Les valeurs de X transmises par le crayon optique ne sont 
pas "continues", 


Elles ne peuvent être que 3, 11, 19, 27,.. (avec un pas 
de 8). La valeur 35, par exemple, est transmise si le crayon 
optique a été appuyé en face des points d'abscisses 32 à 39, 


La valeur 33 de l'instruction 230 aurait donc pu être 
remplacée par toute valeur comprise entre 28 et 34, puisque 
la valeur 27 est obtenue pour tous les points d'abscisses 
allant de 24 à 31 (acceptable) et la valeur 35 pour tous les 
points d'abscisses allant de 32 à 39 (inacceptable). 


240 
a/ Calcul du numéro de colonne C de la case de la matrice 
pointée par le crayon optique. 


La fonction INT(U) -(M.Ref 126)- calcule le plus grand 
entier inférieur ou égal à l'argument U, 


Ainsi le crayon ayant été placé sur la deuxième case, X 
peut prendre les valeurs 83, 91 et 99 et (X-56)/24 prend les 
valeurs 1.125, 1.458, et 1.792 dont la partie entière est 1 
ce qui donne C = 2. 


b/ Calcul du numéro de la ligne L de la case de la matrice 
pointée par le crayon optique. 


La formule est analogue à la précédente (à noter que Y, 
contrairement à X, prend toutes les valeurs entières 
comprises entre 0 et 199). 


c/ et d/ Calcul des coordonnées CC et LL de la case écran 
(CC varie de 0 à 39 et LL de O à 24) au centre de la case 
matrice pointée (nous avons vu le calcul à l'occasion de la 
préparation du programme). 
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##% 250 , 
Branchement en 200 pour un autre pointé, dans le cas où le 
pointé précédent a été fait en dehors de la grille. 


#4x 260 
a/ Positionne le curseur (invisible depuis l'instruction 
130) en colonne CC et en ligne écran LL, 


b/ Affiche le caractère graphique GR$(0) ou GR$(1) suivant 
que A(C,L) est égal à 0 ou à 1. Or A(C,L) = O signifie que 
la case C,L de la matrice est "vide"; dans ce cas c'est 
GR$(0) (carré plein) qui s'affiche. Si au contraire A(C,L) = 
1 la case C,L de la matrice est "pleine" et l'affichage de 
GR$(1) (carré vide) vient effacer le carré plein qui y 
figure. 


#kkk 270 
L'expression (A(C,L)=0) est une variable logique -(M.Ref 
20)- qui vaut -1 (vrai) si A(C,L) est égal à 0 et qui vaut O0 
(faux) si A(C,L) est égal à 1. 


Ainsi l'instruction 270 change A(C,L) de 0 en 1 ou de 1 en 
0. 


En conséquence les deux instructions 260 et 270 permettent 
de changer l'état, "plein" ou "vide", de la case pointée en 
l'état contraire à la fois sur l'écran et en mémoire. 


Remarque. 
L'instruction 270 pourrait également s'écrire 
A(C,L) = - NOT (-A(C,L))  -(M.Ref 21)- 


puisque si A(C,L) 


0 alors NOT (-A(C 
et si A(C,L) (C 


1 alors NOT (-A 


ON 
! 
_ 


*4k 280 
8ranche en 200 pour un nouveau pointé. 


X #4 4 XX x 
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L'ensemble des instructions 200 à 280 forme un bloc dont la 
fonction est de changer l'état des cases de la matrice (du moins 
tant que le crayon optique n'est pas pointé sur l'une des cases 
de commande G, S ou F). Il est donc possible, une fois tapé cet 
ensemble, de l'essayer. Toutefois pour vérifier que l'instruction 
230 branche effectivement en 1000 si l'on pointe l'une des trois 
cases 6, S ou F, on place l'instruction provisoire: 


1000 CLS :PRINT "1000" 


Pour finir les vérifications du bloc de changemant d'état, 
on pointera donc sur l'une des cases de commande. On doit alors 
observer l'effacement de l'écran (CLS) et l'affichage de "1000" 
dans le coin haut gauche de l'écran. 


kkHkHkX #4 * 


Lorsque l'opérateur a fini de disposer ses points sur la 
grille, il commande la visualisation du caractère en appuyant sur 
la "touche" G (avec le crayon optique), ce qui a pour effet de 
brancher le programme en 1000, où un test sur la valeur de Y 
détectée par le crayon permet de brancher sur la partie de 
programme chargée de la visualisation. 

C'est ce bloc de programme, commençant en 500 que nous 
allons étudier maintenant (nous verrons plus tard le bloc des 
instructions 1000). 


506 COLOR 1:FOR L=1 TO 8 

519 Z2=0 

528 FOR C=1 TO 8 

530 Z=2#2+A(C; L) 

540 NEXT C :2Z(L;, NG)=7 

550 LOCATE 36, 3#L-2:PRINT USING “"###":2:BEEP 


968 NEXT L 
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570 DEFGRS(2)= ZC1: NG) : Z (25 NG) à ZE 3; NG) ; Z C4, NG) , 
Z(S, NG) ; Z C6; NG) » Z (73 NG) ; Z (8, NG) 


560 BOX (@; 168) -(32; 192) 


590 ATTRB 1,1:LOCATE 1,22:PRINT GR$(2) :ATTRIB 0, 0: 
LOCATE 5, 22:PRINT GR$(2) 


6900 COLOR 4 
610 GOTO 200 


500 
Cette instruction ne peut être atteinte que par un 
branchement imposé en 1000. 


Le bloc 500 à 610 a pour fonction de calculer les huit 
valeurs caractérisant les huit lignes du caractère bâti et 
de dessiner ce caractère sur l'écran pour juger l'effet 
produit. Il est donc exécuté chaque fois que la case de 
commande "G" a été pointée (voir instructions 1000 et 1010). 


a/ Change la couleur du caractère (Rouge 1), sans changer 
la couleur du fond qui reste Cyan. 


b/ Oéclanche une boucle sur L (L variant de 1 à B). Il 
s'agit de calculer les nombres caractérisant les 8 lignes de 
points composant le caractère. 


510 

La variable Z doit pour chaque valeur de L prendre la 
valeur caractéristique de la ligne. Elle est mise à zéro en 
début de calcul. 


520 - 540 

Boucle en C (C variant de 1 à 8) destinée à explorer les 
A(C,L) et à calculer la valeur caractéristique Z pour la 
ligne L 

Si a,b,c,d,e,f,gh sont les valeurs de A(C,L) pour C 
variant de 1 à 8 (ligne L)(avec a,b,c,d,e,f,9,h,= 0 ou 1), 
alors 


Z=(((((((O+a) x 2+b) x 2+c) x 2+d) x 2+e) x 2+f) x 2+9) x 24h 


Lin 


Ces opérations de multiplication par 2 et d'addition de la 
valeur suivante de A(C,L) sont éxécutées dans la boucle. 


Enfin la dernière instruction de 540 place le valeur Z 
trouvée pour la ligne L dans la variable Z(L,NG) où NG est 
le numéro du caractère bâti. 


Remarque. 


On notera que les valeurs Z et Z(L,NG) sont deux variables 
différentes. L'une est une variable simple, l'autre est un 
tableau. 


550 

a) Positionne le curseur en colonne 36 sur la ligne écran 
au milieu de la ligne L de la matrice (d'où 3 x L - 2 qui 
pour L = 2 par exemple donne bien la ligne d'écren 4). 


b) Affiche les trois chiffres de Z (ou un espace et deux 
chiffres ou deux espaces et un chiffre suivant que Z est 
compris entre 10 et 100 ou inférieur à 10) avec les unités 
en colonne 38 (le premier caractère dièse de l'image , 
représentant le premier chiffre ou le premier blanc, étant 
positionné en colonne 36 par l'instruction LOCATE). 


c) Oéclenche un Bip sonore. Cette instruction n'est 
manifestement pas nécessaire, c'est pour l'esthétique (?). 


560 

Clôture la boucle en L. On notera qu'il est impératif de 
préciser le nom de la variable puisqu'il y a deux boucles 
imbriquées. 


570 

Les huit valeurs Z(L,NG) (L variant de 1 à 8) ayant été 
calculées, l'instruction définit le caractère GR$(2) qui est 
le nouveau caractère qui vient d'être conçu de façon à le 
présenter à l'écran. Ainsi GR$(2) prendra toutes les formes 
conçues successivement. 


On notera que l'instruction OEFGR$ peut comporter des 
variables au lieu de valeurs numériques. 


S80 

Oéfinit un cadre carré 32 x 32 de la couleur choisie en 
500 pour les caractères (soit le Rouge 1), aucun numéro de 
couleur ne figurant à droite de l'instruction-(M.Ref 187)- 
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590 
a/ Fixe la taille des caractères (taille 16 x 16 points). 


b/ Positionne le curseur en colonne écran 1 et ligne écran 
22, de telle sorte que le caractère taille double se place 
au centre du cadre 32 x 32 défini en 580. 


c/ Affiche le nouveau caractère conçu GR$(2). 
d/ Fixe la taille des caractères (taille 8 x 8). 


e/ et f/ Affiche GR$(2) taille normale en colonne 5 ligne 
22. 


On notera que les deux caractères sont affichés en Rouge 
(imposé par l'instruction COLOR de 500). 


600 
Remet la couleur des caractères à la valeur 4 (Bleu). 


610 
Branche en 200 pour un nouveau pointé. 


Remarque. 


Si l'on désire mettre en mémoire le caractère visualisé en 
590, il suffit alors de pointer la case commande S 
(l'instruction 1010 branchera sur 30 où NG est incrémanté et 
où un nouveau calcul est préparé). 


Si, au contraire, le caractère ne répond pas aux espoirs 
du concepteur, il suffit d'effectuer les modifications 
directement sur la matrice en cours (en général le 
déplacemant de quelques points suffit) et de repointer la 
case commande G pour voir l'effet produit. 


Là encore les instructions 500 à 610 forment un bloc qu'il 
y a intérêt à essayer immédiatement, 


RHKkHkÉX *k 


Regardons maintenant le bloc logique qui permat les 


branchements aux instructions répondant à la frappe "optique" des 
“touches" S et F. 


Less 


1008 V=i-CY(3S3)-2K(Y )33 AND Y(73) 
—3K(Y)79 AND Y(113) 


18918 ON V GOTO 209, 500, 59, 2008 


1000 

Cette instruction est atteinte par branchement 
conditionnel depuis l'instruction 230, lorsque le pointé 
s'est fait avec une abscisse inférieure à 32, c'est-à-dire 
lorsque l'opérateur a pointé l'une des cases commandes G, S 
ou F. 


Les variables (Y(33), (Y)39 AND Y(73) et (Y>79 AND (113) 
sont des variables logiques qui prennent la valeur 0 si 
l'expression entre parenthèses est fausse et -1 si elle est 
vraie -(M.Ref 20)-. 


(Y (33) est égal à -1 si la case pointée est G (on a 
vérifié en 220 que Ÿ ne peut être négatif). 


(Y)39 AND Y(73) est égal à -1 si le case pointée est S. 


Enfin (Y)79 ANO Y(113) est égal à -1 si la case pointée 
est F. 


Au plus l'une de ces valeurs peut être égale à -1 (le 
pointé ne peut se faire dans deux cases à la fois). 


En conséquence la variable V prend la valeur 1 si aucune 
case n'a été pointée (Le pointé a bien été effectué dans la 
"colonne" des cases commandes, puisque X est inférieur à 33 
ce qui a provoqué le branchement en 1000, mais le crayon a 
été appuyé en dehors des "touches" commande). V prend la 
valeur 2 si la case G a été pointée, la valeur 3 si la case 
S a été pointée et enfin la valeur 4 si la case F a été 
pointée. 


Cette valeur de V ainsi calculée va nous être utile pour 
brancher le programme suivant la case commande choisie. 


*x* 1010 
L'instruction ON V GOTO -(M.Ref 80)- branche à la première 
étiquette (200) si V=1, à la deuxième étiquette (500) si 
V=2, à la troisième (30) si V=3, à la quatrième (1020) si 
V=4, 


V=1 (erreur de pointé en dehors des cases commande) 
branche en 200 pour un nouveau pointé. 


V=2 (commande G) branche en 500 (bloc 500-610 de 
calcul et d'affichage du caractère). 


V=3 (commande  S) branche en 30 (bloc 30-180, 
incrémentation du compteur de caractères NG, redessin 
de la matrice et mise à zéro des mémoires A(C,L). 


V=4 (commande F) branche en 2000 (récapitulation des 
résultats). 


Les instructions 1000-1010 forment un bloc dont il faut 
vérifier le fonctionnement (Il est commode de placer à ce 
stade une instruction provisoire en 2000, par exemple : 2000 
CLS:PRINT 2000") 


KKHKHKXKk %k 


Les instructions du bloc 2000-2100 ont pour objet 
d'afficher à l'écran la récapitulation des résultats, 
c'est-à-dire les listes des huit valeurs caractéristiques pour 
chaque caractère graphique. 


2090 CLS:LOCATE 13, D: PRINT “RECAPITULATION": 
LOCATE 29, 24: PRINT "TAPEZ "3 :COLOR 7, 1: 
PRINT "ENTREE"; :COLOR 4, 6: CONSOLE 2; 22 


2810 N1=-8:S=0 


2020 LOCATE 9, 3:N1=N1+8:N2=N1+7: 
IF N2)=NG THEN N2=NG:S=1 


2038 FOR I=N1 TO N2 


ZC5 1): 2Z(6:1):2(71):2(8, 1) 


2058 PRINT USING "GR$C#H##)="5I5: 
FOR J=1 TO B:PRINT ZCJ,1)5", "58NEXT J 


2060 PRINT " “$:COLOR 1:PRINT GR$#(2) : COLOR à 
207@ NEXT I 

2069 R$=INPUTS(1) :R=ASCCR#S):IF RC)13 GO TO 2080 
2090 CLS:IF S=0 GO TO 2028 

2100 CONSOLE 0, 24:CLS 


2000 
a/ Efface l'écran. 


b/ et c/ Affiche "RECAPITULATION" au milieu de la ligne O0 
de l'écran (la chaine MRECAPITULATION" a 14 caractères; il 
re donc placer le premier caractère en colonne (40 - 14)/2 
= 13). 


d/ et e/ Affiche le message "TAPEZ" en ligne 24 avec le T 
en colonne 20. 


On notera l'espace après le mot TAPEZ ainsi que le 
point-virgule (;). La chaine suivante sera alors affichée 
sur la même ligne avec un espace après TAPEZ. 


f/ Change la couleur des caractères ainsi que la couleur 
du fond de caractère -(M.Ref 189)-. 


La couleur des caractères passe au Noir (7) et la couleur 
du fond de caractère au Rouge (1).Ainsi le message suivant 
apparaitra en Noir sur un rectangle Rouge, le fond d'écran 
restant Cyan. 


9/ Affiche le message ENTREE. 
On notera là encore le point-virgule (;) après la chaine 
"ENTREE", Il interdit le saut à la ligne qui, effectué en 


ligne 24 provoquerait un déroulement intempestif de l'écran 
vers le haut avec disparition du message affiché en ligne 0. 
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h/ Retour à la couleur Bleu (4) des caractères avec un 
fond de caractère Cyan (6) identique au fond d'écran. 


i) L'instruction CONSOLE -(M.Ref 35)- fixe les lignes 
d'écran ici 2 à 22 qui seront affectées par les instructions 
d'effacement ou de déroulement d'écran. 


Ainsi les lignes 0 et 1, en haut de l'écran et les lignes 
23 et 24 en bas ne seront pas effacées par l'instruction CLS 
en 2090 ce qui laisse permenents les messages affichés sur 
ces lignes, 


2010 
a/ Initialise à -8 le compteur N1. 


Les instructions 2030 à 2070 éxécutent une boucle 
permettant d'afficher les résultats par paquets de 8. Le 
compteur N1 est la valeur prise par l'indice I en début de 
boucle, Il est incrémenté de 8 pour préparer l'affichage 
d'un nouveau paquet de résultats. La première valeur de 
l'indice I étant O, il faut poser N1 = -8 pour obtenir N1 = 
O à l'instruction 2020 provoquant la première incrémentation 
de 8. 


b/ Met à zéro l'indicateur S. 


Cet indicateur sera mis à 1 lorsque le dernier résultat 
(pour I= NG) aura été affiché. Un test sur S permettra alors 
(instruction 2090) de se brancher sur l'instruction de fin 
de programme. 


2020 
a/ Positionne le curseur en colonne DO, ligne 3. 


b/ Incrémente de 8 le compteur N1 (indice de début 
d'affichage). 


La première valeur affichée sera donc celle correspondant 
au caractère I = 0. 


Après affichage des 8 x 8 valeurs correspondant aux 
caractères I = O0 à I= 7, le deuxième affichage débutera 
avec I = 8. 


c/ Calcule la valeur N2 de l'indice de fin de paquet de 
huit résultats. 


* 


d/ Si la valeur N2 précédemment calculée dépasse ou égale 
la dernière valeur NG du compteur de caractère, alors N2 est 
posé égal à NG et l'indicateur S est mis égal à 1 
(indication de fin d'effichage). 


2030-2070 


Affichage des résultats par paquets de huit (sauf pour le 
dernier paquet qui est limité à NG). 


2030 
Ouverture de la boucle. 


2040 

Définit le caractère GR$(2) à partir des caractéristiques 
Z(1,1), Z(2,1), ..Z(8,1) du caractère numéro I. Ainsi GR$(2) 
prend successivement la forma de tous les caractères conçus. 


2050 

a/ Affiche la chaine "GR$( )" avec trois places 
disponibles entre les parenthèses pour y afficher la valeur 
I avec le chiffre des unités à la place de droite. Le 
point-virgqule en fin d'instruction (c) évite le saut à la 
ligne. 


b/ c/ et d/ Boucle en J permettant d'afficher les huit 
valeurs Z(1,1) à Z(8,1) séparées par des virqules. Là encore 
le point virgule en fin d'instruction (c) évite le saut à la 
ligne. 


2060 
a/ Affiche 3 espaces sans saut à la ligne. 


b/ Passe la couleur des caractères au Rouge (1). 


c/ Affiche le caractère GR$(2) qui a la forme du caractère 
graphique numéro I. 


L'abscence de point-virgule en fin d'instruction provoque 
le saut à la ligne. 


d/ Passe la couleur des caractères au Bleu (4). 


2070 
Fin de boucle en I. 


87 


Lin 


2080 
a/ Attend la frappe au clavier d'un seul caractère et le 
place dans la variable ÀA$ -(M.Ref 174)-. 


b/ Place dans la variable R le numéro de code ASCII du 
caractère R$ -(M.Ref 111)-. 


c/ Si la réponse attendue n'est pas le caractère 
correspondant à la touche ENTREE, c'est-à-dire le caractère 
de numéro de code ASCII 13, cette dernière instruction 
renvoie en 2080 donc à la première instruction (a). Si par 
contre la touche ENTREE a été frappée le programme saute à 
l'instruction suivante 2090 de poursuite d'affichage. 


Ainsi l'instruction 2080 constitue un arrêt de 
déroulement du programme pour permettre la lecture des huit 
blocs de valeurs affichés. Le passage à l'affichage suivant 
se fait par frappe sur la touche ENTREE comme l'indique le 
message affiché à la ligne 24 de l'écran. 


Si les deux instructions (b) et (c) de 2080 sont omises, 
l'instruction (a) provoque la même interruption de 
programme, mais la frappe de n'importe quelle touche 
supprime cette interruption. 


IL est préférable d'imposer le redémarrage par la frappe 
d'une touche précise. Cela évite des fausses manoeuvres par 
appui intempestif sur le clavier. 


2090 
a/ Efface l'écran dans la fenêtre ligne 2 à 22 imposée 
par l'instruction CONSOLE 2, 22 en 2000. 


b/ OÜans la mesure où l'affichage de tous les caractères 
n'est pas terminé (S-0) branche en 2020 pour le paquet 
suivant. Si S=-1 le programme passe à l'instruction 2100. 


2100 
a/ Annule l'effet de l'instruction CONSOLE 2,22 de 2000 en 
ne réservant aucune fenêtre. 


b/ L'instruction CLS efface tout l'écran. 


LR: 


Nous sommes maintenant en mesure d'essayer le programme au 
complet dont le listing est le suivant : 


10 CLEAR ,,3 
206 DEFINT A-Z:DIM A(8,8),7Z(8, 127) :NG=-1 


38 NG=NG+1:CLS:SCREEN 1,6, 6:LOCATE 32, 0: 
PRINT USING "GR$###"; NG:COLOR à 


4Q DEFGR$S(1)= ©, 0, 0,0, @, @, 0, 0: 
DEFGR6(0)= 255, 255, 255, 255; 255: 2551 255» 255 


50 FOR 1= 6 T0 8 

60 X=241+56 

70 LINE CX, @)-CX, 192) 
80 NEXT 

390 FOR 1= @ TO 8 

100 Y=24xI 

110 LINE (56, Y)- (248: Y) 
120 NEXT 


130 ATTRIB 1,:1:BO0OX (@,@)- (32, 32): 
LOCATE 1,2, @:PRINT "G" 


140 BOX (@, 48)-(32, 72) :LOCATE 1, 7:PRINT "S" 


150 BOX (0, 89)-(32, 112) :LOCATE 1,12: 
PRINT "F':ATTRB 0,0 


160 FOR I=1 TO 8:FOR Jei TO 8:A(I, J)=O:NEXT J, I 
170 BOX (@, 8@)-(319; 199) 
180 BEEP:FOR 1=@ TO 100:NEXT:BEEP 
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INPUTPEN X, Y 


FOR J=1 TO 1@:1F PTRIG=-1 GOTO 210 
ELSE NEXT J 


IF X(@ OR Y(@ GOTO 200 
IF X(33 GOTO 1000 


C=INTCCX-56)/24)+1:L=INT(Y/24)+1: 
CC=3SxC+S:LLeSkL-2 


IF C(1 OR L(i OR L)6 GOTO 200 
LOCATE CC; LLE PRINT GR$CACC; L)) 
ACC: L)=-(CACC, L)=0) 

GOTO 260 


COLOR 1:FOR Lei TO 8 

Z=0 

FOR C=1 TO 8 

Z=2#2+A(CC, L) 

NEXT C :ZCL, NG)=Zz 

LOCATE 36; 3KkL-2: PRINT USING "###":;Z:BEEP 
NEXT L 


DEFGRé(2)= ZC1, NG): Z C2, NG) , Z CS NG) » Z C4» NG)? 
Z (5? NG), Z (6; NG), Z C7, NG) , Z C8; NG) 


BOX (@, 16@)-C32, 192) 


ATTRB 1, 1:LOCATE 1,22:PRINT GR6(2): 
ATTRIB @; GILOCATE 5, 22: PRINT GR6(2) 


COLOR à 
GOTO 260 


1008 V=i-(Y(33)-2#CY )39 AND Y(73) 
—S*(Y) 79 AND Y (113) 


1010 ON V GOTO 200, 500, 50, 2080 


2008 CLS:LOCATE 13, Os: PRINT "RECAPITULATION": 
LOCATE 20, 24:PRINT “TAPEZ "33COLOR 7, 11: 
PRINT "ENTREE" 3; COLOR 4, G: CONSOLE 2, 22 

2010 Ni=-Bi16=09 


2020 LOCATE 0; 3IN1=N1+8:N2=N1+71: 
IF N2)=NG THEN N2=NGtS=i 


2038 FOR I=N1 TO N2 


2048 DEFGRé(2)=Z (15 139 ZC21 199 ZCSr 1)» ZC4s 1)» 
ZCS, 1): 26» 1): ZC7, 1): ZCB» 1) 


26050 PRINT USING "GR6C###)="5151: 
FOR J=1 TO B:PRINT Z(J,1)5", "Y6NEXT J 


2660 PRINT " “5:COLOR 1:PRINT GR6(2) :COLOR 4° 
2070 NEXT I 

2080 Ré=INPUTS(C1)1R=ASCCR6):31IF R()13 GO TO 2080 
2690 CLS:IF S=0 GO TO 2220 

2100 CONSOLE ©, 24:CLS 


La première constatation après exécution du programme, est 
que la présentation des résultats laisse quelque peu à désirer 
Sur le plan de l'esthétique. 


Les résultats s'affichent correctement mais l'impression 


des Z(L,1) entre les virgules comportent trop d'espaces. Il y a 
UN premier espace pour la place du signe (or nous savons que les 
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Z(L,I) sont toujours positifs. En outre, il y a un espace 
derrière le nombre affiché (c'est une propriété de l'instruction 
PRINT qui laisse toujours un espace derrière une valeur numérique 
-(M.Ref 87)-. 


Par exemple le caractère "CROIX DE SAINT-ANDRE" qui a la 
forme d'un X donne la présentation suivante: 


GR$(0)= 129 , 66 , 36 , 24 , 24 , 35, 
66 , 129 , XX (avec le X Rouge) 


Nous allons essayer d'améliorer la présentation en 
particulier en supprimant les espaces indésirables. 


Plutôt que d'imprimer successivement les huit valeurs 
numériques caractérisant le caractère numéro I, nous allons 
bâtir une chaine de caractères composée des huit valeurs Z(L,I) 
(L variant de 1 à 8) transformées en chaines concaténées avec des 
caractères "virgule" les séparant. 


Rappelons que l'opération de concaténation est la simple 
mise bout à bout de chaines (cette opération agissant sur les 


chaines de caractères est obtenue par l'opérateur d'addition (+) 
-(M.Ref 22)-. 


Ainsi par exemple le programme: 


10 AS = "ABCD": Bé= “EFGH" 
20 Cé= AS+ Bé 
30 PRINT Cs 


a pour effet l'affichage du résultat C$ de la concaténation 
de A$ et de B$, soit la chaine "ABCDEFGH", 


I1 nous faut d'abord transformer la valeur numérique Z(L,I) 
en une chaine de caractères par la fonction STR$ -(M.Ref 147)-, 
puis supprimer le premier caractère de cette chaine (réservé au 
signe qui, nous le savons, ne peut être qu'un + représenté par 
un espace, dans notre cas, inutile). 
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La fonction MID$ -(M.Ref 13D)- permet d'extraire les 
caractères de la chaine à partir du second caractère et en 
conséquence supprimer le premier. 

On prendra garde à ne pas confondre la fonction: 

X$=-MID$(Z$,P,0) 
qui permet d'obtenir en X$ les Q caractères de Z$ en commençant 
au caractère de rang P (si Q n'est pas précisé, MID$ (Z$,P) 
extrait tous les caractères de Z$ à partir du caractère de rang 
P) et la fonction: -(M.Ref 73)- 

MIO$(A$,P,0)=-2$ 


Q 


qui dans la chaine A$ remplace les caractères à partir du 
caractère de rang P par les Q premiers caractères de Z$. 


En conséquence nous transformons la valeur numérique Z(L,I) 
en une chaine ne comportant pas d'espace en première place par : 


MIOS(STR$(Z(L,1),2)) 
et la concaténons avec le caractère "," par 
MIDS(STRS(Z(L,1),2))+"," 
pour obtenir ce que nous appellerons une chaine élémentaire. 


I1 ne nous reste plus qu'à concaténer les différentes 
chaines élémentaires correspondant à L variant de 1 à 8. 


On parvient ainsi à un programme de la forme 
1510 FOR I=0 TO NG 

1520 Z6="" 

1530 FOR J=1 TO 8 

1540 Z6=26+MIDS(CSTRSCZCJ,1)), 2)2+"," 
1550 NEXT J 

1560 Z6(L)=LEFTÉ (26, LENCZ6)-1) 

1570 NEXT I 


La boucle 1510-1570 permet de bâtir la chaine Z$(I) pour 
toutes les valeurs de I variant de D à NG. 


L'instruction 1520 met à "zéro" la chaine Z$ (Z$ est une 
chaine de longueur nulle ce qui est l'équivalent de zéro pour une 
valeur numérique). 


La boucle 1530-1550 calcule dans Z$ le résultat de la 
concaténation des chaines élémentaires. 


Enfin l'instruction 1560 place, dans Z$(1), la chaine Z$ 
dont on a supprimé le dernier caractère par l'opération LEFTS 
-(MRef 127)-, puique l'on ne conserve que la partie gauche de Z$ 
sur une longueur égale à la longueur de 2$ (LEN(Z$)) -(M.Ref 
128)- diminuée de 1. Cette opération permet de supprimer la 
dernière virgule provenant de la chaine élémentaire bâtie pour J 
= 8. 


Le calcul de toutes les chaines Z$(I) demande un certain 
temps. Aussi est-il nécessaire de prévenir l'opérateur d'avoir à 
patienter. C'est l'objet de l'instruction 1500 que nous 
rajouterons en début de bloc : 


1500 CLS:ILOCATE 14, 122PRINT “UN INSTANT!" 


qui affiche le message UN INSTANT! au milieu de l'écran. 


KKHKHXXX 


Il est toutefois nécessaire d'apporter quelques 
modifications supplémentaires au programme. 


Il faut réserver des places mémoires pour le tableau Z$(I) 
soit 127 places, par l'instruction DIM. Nous complèterons donc la 
deuxième instruction de l'étiquette 20 : 


26 DEFINT A-Z:DIM A(6, 8), ZCBr 127)» Z6(127) :=NG=-1 


Par ailleurs il nous faut réserver de la place mémoire pour 
le traitement des chaines de caractères imposé par les 
instructions 1510 à 1570. 


Cette réservation se fait par l'instruction CLEAR -(M.Ref 
32)-. C'est le premier paramètre de cette instruction qui définit 
le nombre d'octets réservés au calcul des chaines de caractères. 


Nous avions utilisé l'instruction CLEAR à l'étiquette 10 
sous la forme : 


10 CLEAR 13 


Le premier paramètre n'ayant pas été précisé, c'est la 
valeur 30D qui avait été retenue par défaut. 


Il n'est pas toujours facile d'estimer quelle place mémoire 
peut être nécessaire. Aussi  proposons-nous la méthode 
"expérimentale" suivante. 

Nous pourrions essayer le programme en mettant a priori une 
valeur arbitraire comme premier paramètre pour CLEAR, par exemple 
5000, puis bâtir 128 caractères et vérifier que cela "passe" 

I1 est plus commode de “"court-circuiter" la partie du 
programme permettant de bâtir les caractères (de 30 à 1010) et 
de bâtir un tableau de 8 x 128 valeurs des Z(J,1) avec des 
valeurs aléatoires (comprises entre D et 255) afin de tester les 
instructions 1500 à 1570. 


A cet effet nous allons rajouter les instructions 
provisoires suivantes: 


24 NG=127:DS=256 
25 GOTO 1200 


1200 FOR 1=0 TO 127:COLOR 1:PRINT 15" "s;:COLOR 4 
1210 FOR J=i TO 8 

1226 Z(J; 1) =INT (DSRND) 

1230 PRINT ZCJ,1)5","5 

1240 NEXT J 

1250 PRINT:NEXT I 
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Par ailleurs nous remplaçons l'instruction 10 par : 
10 CLEAR S3000,,3 


Enfin nous rajoutons les instructions suivantes dans le 
bloc 150D-157D : 


1525 COLOR 1:PRINT 13" “#eCOLOR 4 
1555 PRINT FRECXS) 


L'instruction 24 fixe à 127 la valeur de NG (cela nous sera 
utile lors de l'affichage des résultats (bloc 2000-2090). 


En outre on pose DS = 256, constante utilisée à l'étiquette 
1220 (il est préférable d'utiliser une constante sous forme d'une 
variable plutôt que sous forme d'une valeur numérique dans une 
formule. Cela gagne du temps au moment de l'éxécution car 
l'interpréteur BASIC n'a pas à traduire cette valeur numérique. 
Cela est encore plus important lorsque la formule figure à 
l'intérieur d'une boucle). 


L'instruction 25 branche sur 1200 en court-circuitant tout 
le programme de création de caractères. 


Les instructions 120D à 1250 permettent de créer le tableau 
des Z(J,1). 


8% 1200 
a/ Duvre une boucle en I. 


b/ et c/ Affiche I en Rouge (1). 

Cela permettra de suivre pas à pas la création du tableau. 

d/ Remet la couleur des caractères en Bleu (4). 

Ces petits détails de changements de couleurs peuvent 
paraitre superflus. Ils sont en réalité très commodes pour 


pouvoir suivre aisément le déroulement du programme. 


#4% 1210 
Ouvre une boucle en J. 


Lens 


1220 

La fonction RND -(M.Ref 137)- calcule à chaque appel un 
nombre pseudo-aléatoire compris entre D et 1 (0 inclus et 1 
exclus). 


Ainsi INT(DS*RND) calcule à chaque appel un nombre entier 
pseudo-aléatoire compris entre 0 et 255 (DS = 256). 

C'est cette valeur toujours différente d'un pas de calcul 
à l'autre que nous chargeons dans Z(J,1). 


1230 
Affiche la valeur de Z(J,1) suivie d'une virgule et sans 
saut à la ligne (point-virqule en fin d'instruction). 


1240 
Ferme la boucle en J, 


1250 
a/ Provoque un saut à la ligne (fin des huit valeurs de 
Z(J,1) pour J de 1 à 8). 


b/Ferme la boucle en I. 


Ainsi ce bloc d'instructions de 1200 à 1250 fabrique un 
tableau des Z(J,1), rempli de valeurs aléatoires comprises 
entre D et 255, ce qui simule un tableau réél mais beaucoup 
plus rapide à constituer. 


1525 

Affiche au cours de la constitution des variables Z$(I) la 
valeur de I en Rouge, puis ramène la couleur des caractères 
au Bleu. Cette instruction permettra de suivre pas à pas 
l'évolution du calcul de la variable Z$(1I). 


1555 

La fonction FRE(X$) -(M.Ref 121)- donne la place mémoire 
restant disponible pour le traitement des chaines de 
caractères. 


L'instruction 1255 nous permettra de suivre, en fonction 
de l'indice I, l'évolution de la place disponible et donc 
d'évaluer la place restante en fin d'éxécution du bloc 
1500-1570. 


11 nous sera alors possible d'ajuster la valeur du premier 
paramètre R de 10 CLEAR R,,3. 
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L'expérience (qu'il est interessant d'exécuter réellement) 
montre qu'une valeur de l'ordre de 4000 est suffisante. C'est 
elle que nous retiendrons tout en notant que ce programme n'étant 
pas très gourmand en mémoire, nous pouvons nous permettre de ne 
pas être trop avares en place mémoire. Mais il est bon de 
retenir la méthode employée pour pouvoir serrer au plus près les 
valeurs nécessaires dans des cas plus critiques. 


kKHKkXK Kk X 


11 est enfin nécessaire de modifier quelque peu le bloc 
2000-2090 d'affichage des résultats. 


Les instructions ajoutées (ou modifiées) au programme donné 


ci-dessus figurent précédées des symboles +++ et les instructions 
provisoires précédées des symboles Prv. 


+++ 10 CLEAR 40080,,3 


+++ 20 DEFINT ÀA-Z:DIM A(8,8),2(8, 127)? 
26(127)3NG= -1 


Prv 24 NG=127:DS=256 
Prv 25 GOTO 1200 


Les instructions de 30 à 1010 sont inchangées et sautées, 
Nous ne les reproduisons pas ici. 


Prv 1200 FOR I=9 TO 127:COLO0R 1:PRINT 135" "53 
COLOR 4 


Prv 1210 FOR J=i TO 8 

Prv 1220 Z(I, J)=INT(DS#RND) 
Prv 1230 PRINT ZCIJ)6","8 
Prv 1240 NEXT J 


Prv 1250 PRINTINEXT I 
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+++ 


+++ 


1500 
1510 
1520 
1525 
1530 
1540 
1550 
1555 
1560 
1570 
2000 


2810 
2028 


2030 
2040 


2050 


2060 
207a 


2088 
2090 


CLS:LOCATE 14, 12:PRINT "UN INSTANT !" 
FOR 1=8 TO NG 

Z$="" 

COLOR 12PRINT 13"  "3:COLOR 4 

FOR J=1 TO 8 
Z6=Z8+MIDS(STRSCZ(J, 12), 22+"," 

NEXT J 

PRINT FRECX#) 

ZS C1) =LEFTS (Z$; LENCZS)-1) 

NEXT 1 

CLS:LOCATE 13, @:PRINT "RECAPITULATION": 
LOCATE 20, 24:PRINT "TAPEZ "3:COLOR 7, 11 
PRINT “ENTREE: «COLOR 4, 6: CONSOLE 3, 22 
Ni=-8:16=0 


LOCATE @, S:N1m=N1+8:N2=N1+7: 
IF N2)=NG THEN N2=NG1:6=i 


FOR I=N1 TO N2 


DEFGRS(2)mZ(1r 1)» ZC2»1): ZCS 1): ZC& 1)» 
Z(S, 1), Z(6,1),: 207» 1)» ZCBr 1) 


COLOR @2PRINT USING "GRSC###)m"3113 
COLOR 1:PRINT GR#(2)23" "863 
COLOR 4: PRINT Z$8CI) 2PRINT 


NEXT I 


R$= INPUTS (1) : RmABC (RS) : 
IF R(>13 GO TO 2070 


CLS:IF Sr@ G0 TO 2020 
CONSOLE 0, 24:CLS 
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Les modifications du bloc 2000-2090 sont évidentes. 


L'instruction 2050 permet d'afficher la valeur du compteur 
I de caractères en Noir, le caractère en Rouge et enfin la liste 
des huit valeurs caractéristiques séparées par des virgules en 
Bleu par l'affichage de la variable Z$(I) precédemment calculée. 


11 est intéressant de faire tourner ce programme jusqu'au 
bout, ne serait-ce que pour admirer lors de la récapitulation les 
superbes caractères aléatoires fabriqués (ils ont un petit aspect 
rappelant le chinois !). 


KR OK XX À 


I1 nous reste maintenant à ajouter le bloc d'instructions 
permettant d'obtenir la récapitulation des résultats sur 
l'imprimante. 


Bien entendu, il faut laisser à l'utilisateur la 
possibilité de décider s'il désire ou non cette impression. 


A cet effet, nous plaçons un message à l'écran après 
effacement des derniers résultats  récapitulés proposant 
l'impression ou la clôture du programme. 


Les instructions du bloc d'impression sont numérotées de 
3000 à 5000 et placées après le bloc des instructions de 
récapitulation. 


3006 LOCATE 6, 12: 
PRINT "Pour imprimer iles resultats tarez “:: 
COLOR 0, 1:PRINT "ENTREE": 
COLOR 4, 6:LOCATE 0, 14e 
PRINT “Pour cioturer tapez ":: 
COLOR @, 1: PRINT “F"3COLOR 4,6 


3010 LOCATE 20; 16:1R#=INPUTS (1) 


3020 ON 1-CASC(RS)m=13)-2xCR8="F") 
GOTO 3910, 3500, 4000 


3500 OPEN "O",1;, “LPRT:(80)" 
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3510 GOSUB 5000 

3520 FOR 1=0 TO NG 

3530 IS=STRS(I): IS=RIGHTS(I8, LENCIS)-1) 
354Q@ PRINT #1, "DEFGR6("1185") = "3Z8(C1) 
3550 NEXT I 

3S6@ GOSUB 5000 

4898 CLS:END 


5000 PRINT #1:PRINT #1:FOR I=i TO 80: 
PRINT #11"-"3:NEXT= PRINT 1e PRINT #1:RETURN 


3000 
Place en lignes 12 et 14 le message: 


Pour imprimer les résultats tapez ENTREE 


Pour clôturer tapez F 


avec les deux mots ENTREE et F en Noir sur fond Rouge pour 
bien faire comprendre qu'il s'agit des touches ENTRÉE et F. 


3010 

Le curseur (rendu apparent par la valeur 1 du troisième 
paramètre de LOCATE se place au centre de le ligne 16 et le 
programme s'arrète en attendant la frappe d'une touche 
(instruction INPUT$(n) -(M.Ref 174)- qui place dans la 
variable R$ le caractère correspondant. à la touche frappée). 


On notera qu'un seul caractère est attendu, le paramètre n 
figurant dans la parenthèse de INPUT$ étant égal à 1. 
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#4% 3020 
L'expression 


1 - (ASC(R$S)=13) - 2*(R$="F") 


prend les valeurs: 


1 si la touche frappée n'est ni la touche ENTREE ni la 
touche F 


2 si la touche frappée est la touche ENTREE dont le 
numéro de code ASCII est 13, (ASC(R$)= 13) étant alors 
égal à -1. 


3 si la touche frappée est la touche F, (R$= "F") étant 
égal à -1 (voir l'utilisation des variables logiques 
dans ce même programme aux instructions 1000 et 
1010). 


Ainsi le programme est branché sur l'étiquette 3500 si la 
touche ENTREE a été frappée, sur l'étiquette 4000 si la 
touche F a été frappée. 


Nous placerons donc le bloc d'instructions d'impression à 
partir de 3500 et l'instruction de clôture en 4000. 


Il est recommandé de lire l'Annexe II consacrée à 
l'utilisation des imprimantes avant d'aborder la suite de ce 
chapitre. 


uns 3500 
L'instruction OPEN -(M.Ref  177)- affecte le canel 
numéroté 1, à la sortie sur imprimante. 


Le numéro de canal est arbitraire (il doit être compris 
entre 1 et 16 et est leissé au choix du programœur). 


La lettre O0 entre guillemets (3) précise que ce canal sera 
utilisé en sortie (0 pour OUTPUT), c'est-à-dire dans le sens 
ordinateur vers périphérique, ici ordinateur vers 
imprimante. 
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L'affectation de ce canal à l'imprimante est précisée par 
le mot clé LPRAT:. 


Oans notre cas nous avons choisi d'imprimer des lignes 
contenant au plus 80 caractères d'où la valeur 80 entre 
parenthèses (ceci suppose que nous utilisons l'imprimante à 
aiguilles PR 90-080). 


On notera soigneusement la syntexe de l'instruction. Le 0 
doit être placé entre guillemets, le numéro du canal entre 
deux virgules. Ne pas oublier les deux-points (:) après LPAT 
ni les guillemets. 


Le numéro de canal de sortie des données sur imprimante 
étant ainsi fixé, tous les ordres d'impression seront de la 
forme: 


PRINT #1 (chaines, variables, etc..) 


(1 étant le numéro de canal). Il est possible d'entremêler 
des instructions d'affichage à l'écren avec des instructions 
d'impression sur l'imprimante. Ces ordres d'affichage à 
l'écran sont alors des ordres PRINT simples, sans numéro de 
canal. 


3510 
Branche sur le sous-programme 5000 qui permet 


a/ et b/  O'effectuer deux sauts à la ligne sans 
impression. 


c/ d/ et e/ Par une boucle de 80 pas, d'imprimer une ligne 
complète de 80 tirets (-). 


f/ et o/ O'effectuer encore deux sauts à le lione. 


3520 
Ouvre une boucle en I de O à NG pour l'impression des NG 
+1 résultats. 


3530 

Calcule une chaine de ceractères 1$ représentant I, en 
supprimant l'espace remplaçant le signe + et contenant le 
nombre exact de digits de I. 
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Less 


Less 


Less 


Less 
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3540 
Imprime La chaine M"DEFGR$ (", suivie la chaine 1$, de la 
chaine "“) = " et enfin de la chaine Z$ (1) calculée en 


1500-1570 et déjà utilisée en 2050. 


Ainsi le caractère CROIX OE SAINT-ANDRE déjà cité, placé 
en numéro 21 apparait sous la forme: 


DEFGR$ (21) = 129, 66, 36, 24, 24, 36, 66,129 


3550 
Ferme la boucle en I. 


3560 
Branche sur le sous-programme 5000 (voir 3510) 


4000 
a/ Efface l'écran. 


b/ L'instruction ENO est indispensable pour éviter que le 
Sous-programme en 5000 ne soit éxécuté directement après 
l'instruction 4000, ce qui provoquerait l'erreur 3 (RG, 
c'est-à-dire RETURN WITHOUT GOSU8) (l'instruction a été 
rencontrée sans avoir été précédée d'un GODSUB). 


Rappelons qu'une instruction END est toujours nécessaire 
si le programme doit s'arrêter à une instruction qui n'est 
pas plecée à la dernière étiquette. 


Enfin l'instruction ENQO ferme le cenal 1 ouvert en 3500. 
Cela évite l'instruction CLOSE 1 -(M.Ref 170)- de fermeture 
du canal. 
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Clavier 


Nous nous proposons d'éteblir un programme permettant de 
tester les différentes touches du clavier. Cela nous conduira, en 
particulier, à voir comment identifier la dernière touche 
frappée. 


Nous dessinerons donc sur l'écran un ensemble de cases 
rectangulaires reproduisent du mieux possible la forme et la 
position des différentes touches disponibles sur le clevier. La 
frappe d'une touche particulière se traduira par l'inscription, 
sur la “touche écran", du caractère où du symbole correspondant. 


Les deux touches ENT et MAJUSCULE (cette dernière est 
marquée d'un point jaune), n'eyant pas de signification en 
elles-mêmes, puisqu'elles ne font que mdifier la "veleur'" de la 
touche frappée en même temps, ne seront pas représentées. 


Nous décidons, a priori, de trecer le symbole ou le 
caractère qui vient d'être frappé au clavier, en couleur Rouge, 
de façon à bien le distiguer des caractères déjà frappés qui 
seront maintenus sur l'écren, en Bleu, si ce sont des caractères 
alphanumériques, en Noir si ce sont les touches de fonction 
(STOP, ACC, Flèches, etc) et enfin en Blanc sur fond Magenta si 
ce sont des caractères "controle" (obtenus en frappent une touche 
alphabétique tout en eppuyant sur la touche CNT) 

Nous aurons toutefois à prendre garde à ce que les 
différentes touches de fonction ne sont en réalité que des 
touches ‘"controle" et qu'il nous faudra non seulement afficher à 
l'écran la touche fonction mais également la touche "controle!" 
correspondante. 
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Commençons par le dessin des touches. 


10 


20 


30 


40 


60 


70 
80 


CLS: SCREEN 0,6, 6:CLEAR , ; S51LOCATE 0,0,0 


YO=14:DY=26:BOX (4, YOB)-C33, YO+DY) : 
BOX (36, YD)-(260, YO+DY): 
BOX (268, YG) -(284, YB+DY): 
BOX (290, YB) -(307, YO+DY) 


S=12:FOR 1=4 TO 15:GOSUB 2000:NEXT 
YO=54:BOX (44, YD)-(236, YO+DY) : 

BOX (268, YO) -(284, YO+DY): 

BOX (290, YG)-(307, YB+DY) 

Sm=4:3FOR 1=4 TO 14:GOSUB 20008: NEXT 
Y@=94:BOX (4, YB)-C33;, YO+DY): 

BOX (52, Y@)-(212;, YO+DY): 

BOX (215; YO) -(264, YB+DY ) : 

BOX (268; YG)-(307, YO+DY) 

S=12:FOR 1=5 TO 13:GOSUB 2000:NEXT 
YO=134:BOX (60, YG)-(20@4, YO+DY) : 
BOX (268, YG)-(286, Y@+DY): 

BOX (288, YO) -(307, YB+DY) 


S=4:FOR 1=5 TO 13:GOSUB 2000:NEXT 


108 BOX (71,174)-(200, 199) 


2008 X=16*I-S:LINE CX: Y®)-CX, YG+DY) : RETURN 


a/ Efface l'écran 


b/ Fixe au Noir (0) la couleur des cerectères, au Cyan (6) 
les couleurs de fond et d'entourage écran. 


c/ 


/ : 
Réserve 5 places mémoires pour les caractères 


graphiques (nous en aurons besoin pour représenter les 
touches INS, EFF et la touche "Flèche Retour"). 
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On notera que l'instruction CLEAR -(M.Ref 32)- est placée 
en tout début de programæ. Elle provoque en effet, entre 
autres, le mise à zéro de toutes les mémoires. On notera 
également les deux virgules précédant le chiffre 5. Les deux 
valeurs numériques, non précisées, avant la première virgule 
et entre les deux virgules sont destinées à la réservation 
des places mémoires pour le traitement des chaines de 
caractères (300 places retenues par défaut) et pour le 
logement de progremmes ou de données en binaire (voir le 
programme MINICARACTERES pour cette dernière réservation 
d'espace). 


d/ Place le curseur dans le coin haut-geuche de l'écran 
(0,0)et l'efface (effet du troisième zéro). 


20 
a/ Fixe la valeur de l'ordonnée YO de la ligne supérieure 
de la première rangée de "touches" 


b/ Fixe le valeur de la heuteur DY des touches. 


Les valeurs de OŸY et de YO ont été choisies 
“expérimentalement", de façon à obtenir une présentation 
harmonieuse. 


Les lignes supérieure et inférieure des "touches" sont 
alors placées de telle sorte que l'on peut écrire deux 
caractères l'un au dessus de l'autre, séparés par un blanc 
sans déborder sur le cadre (0Y = 3 x B + 2). 


c/ La première touche tracée par l'instruction 80X -(M.Ref 
187)- est destinée à la touche de fonction STOP. 


On notere que la couleur n'a pas été précisée en fin 
d'instruction. C'est donc la couleur caractère Noir (0), 
fixée en 10 par l'instruction SCREEN qui est retenue par 
défaut. 


d/ L'instruction BOX suivante trace un cadre englobant 
l'ensemble de la première rangée depuis la touche 1 jusqu'à 
la touche de fonction ACC. 


11 sera nécessaire de tracer ensuite les séparations entre 
touches (voir étiquette 30). 


e/ et f/ Tracé des deux touches Flèche Haut et Flèche Bas 
à droite de la première rangée. 
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tin 
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30 

Les instructions regroupées sous cette étiquette trecent 
des traits verticaux de séparation des touches d'une même 
rangée. 


a/ Le paramètre 5 permet de modifier l'abscisse des traits 
verticaux d'une rangée de touches à l'autre. 


Ces abscisses ont été choisies de telle sorte que l'on 
puisse inscrire un caractère centré entre deux traits 
(l'abscisse du "point milieu" d'un caractère est un multiple 
de huit plus 3.5). 


b/ Ouverture d'une boucle en I permettant de tracer les 12 
traits verticaux de la première rangée. 


c/ Appel au sous-programme 2000 de tracé d'un trait 
vertical. 


d/ Fermeture de la boucle. 


40-50, 60-70, 80-90 
Ces trois groupes de deux étiquettes sont consacrées au 
tracé des trois autres rangées de touches. 


100 
Tracé du cadre rectangulaire représentent la barre 
d'espece. 


L'ebscisse des points de gauche est un multiple de 8 
diminué de 1 et celle des points de droite un multiple de 8. 


Les points du cadre n'appartiennent donc pas aux blocs de 
huit points, liés per la couleur, de l'abscisse 72 à 
l'abscisse 199. On pourra donc modifier le couleur à 
l'intérieur du cadre sans changer celle du cadre lui-même. 


2000 
a/ Calcul de l'abscisse X du trait vertical de rang I. 


Les treits verticaux sont donc espacés de 16 points écran. 
Le paramètre S permet de décaler les diverses rangées de 
touches suivant leur position en hauteur sur l'écran (on 


remarquera que le clavier du T07 a ses touches disposées en 
quinconce). 


b/ Trace une ligne vérticele d'abscisse X entre les points 
d'ordonnées YO et YO + OY. 


c/ Instruction de fin de sous-progremme -(M.Ref 57)- 


On peut se demender pourquoi les instructions 20, 40, 60 et 
80 commencent par fixer la valeur de YO, utilisée uniquement dans 
l'étiquette elle-même. Il aurait été possible en effet de 
remplacer YO par sa valeur dans les trois ou quatre instructions 
BOX qui y figurent. 


L'intérêt d'utiliser YO, au lieu de la valeur numérique, 
n'est, dans ce cas, ni un gain dans le temps d'exécution, ni un 
gein de plece mémoire. C'est par contre une commodité lors de la 
mise au point du "dessin" du clavier à l'écran. Il est plus 
commode de chenger, en une seule fois, le valeur d'un paramètre 
en modifiant la valeur de YO, plutôt que de changer plusieurs 
valeurs numériques à l'intérieur des diverses instructions BOX, 
avec le risque d'en oublier une. Or il faut savoir que la 
conception du "dessin" ne se fait pas ex abrupto. Un certain 
nombre d'essais est nécesseire avant d'obtenir un résultat 
satisfaisant evec, entre autres, quelques changements sur la 
position des rangées donc sur les valeurs des YO. 


Une fois  tapées les instructions 10 à 100, il est 
recommandé d'essayer le programme pour relever les erreurs de 
syntaxe et juger l'effet produit par le grephisme obtenu. 


Ce peut être l'occasion de modifier la disposition de 
quelques "touches" si nous constatons que le dessin ne se 
présente pas aussi bien que nous l'avions imaginé sur le papier. 
Il est en effet préférable de partir d'un dessin quasi définitif 
avant de rentrer les données colonne-ligne correspondant à chaque 
caractère. Cela évitera des modifications ultérieures de données, 
toujours fastidieuses. 


On constatera que les touches de fonction INS et EFF 
bâties par l'instruction BO sont trop étroites pour contenir 
trois caractères. Leurs formes et leurs positions ont été 
imposées par la form et la position des touches "flèches" des 
rangées supérieures. 
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Il est donc nécessaire de bâtir des caractères spéciaux 
dits "graphismes utilisateur" -(M.Ref 190)- pour y inscrire les 
mentions INS et EFF sur appel de ces touches. 


Les caractères de INS seront représentés par un graphisme 
reproduisant les deux lettres I et N dans un même cerré de B x B 
points et un graphisme représentant un S seul. Ainsi INS 
n'occupera que deux cases caractère. 


On sait qu'un graphisme utilisateur occupe, comme un 
caractère typographique une case B x 8 points écran, l'abscisse 
de la rangée verticale des huit points de gauche étant un 
multiple de huit et celle de la rangée verticale des huit points 
de droite étant le même multiple de huit eugmenté de sept. 


L'abscisse des points de droite du cadre représentant la 
touche INS est 286. Ces points se trouvent donc à l'intérieur de 
la "case" caractère dans la colonne 35 (286 / 8 = 35.75). Si l'on 
veut écrire un caractère, en l'occurrence le S de INS, en colonne 
35 (ligne 18), il est donc nécessaire de recréer la ligne 
verticale des huit points de droite dans le caractère lui-même. 

Le S du second caractère de INS sera donc complèté par une 
barre verticale de huit points destinés à rétablir la continuité 
du cadre à droite après affichege du caractère. Ces huit points 
seront placés dans la septième colonne du caractère (l'abscisse 
du coin geuche d'un caractère plecé en colonne 35 par un LOCATE 
35,Y est 35 x 8 = 280; l'ebscisse du septième point du caractère 
est donc 280 + (7-1) = 286). 


Nous bâtirons donc pour INS les deux ceractères ayant les 
formes suivantes : 


000.0..0 ..000.0. 
.0..0..0 .0....0. 
-0..0..0 .0....0. 
-0..00.0 ..0...0. 
-0..0.00 ...0..0, 
-0..0..0 ....0.0. 
.0..0..0 ....0.0. 
000.0. .0 -000..0. 


110 


Un raisonnement enelogue nous conduit à bâtir les deux 
caractères suivants pour la touche EFF (dans ce ces c'est le 
premier caractère E qui doit être complèté à gauche par une 
barre verticale rétablissant le cadre après affichage du 
caractère). 


0..000.. 000. .000 
0..0.... 0....0.. 
0..0.... 0....0.. 
0..00... 00...00. 
0..0.... 0....0.. 
0..0.... 0....0.. 
0..0.... 0....0.. 
0..000.. 0....0.. 


I1 nous reste enfin à bâtir le graphisme reproduisant le 
forme du symbole de la “Flèche Retour" et les graphismes 
représentant les quetre Flèches Heut, Bas, Geuche et Droite. 


Pour ces dernières nous avons vu dans le premier programme 
que nous pouvons les obtenir en concaténant le ceractère CHR$(22) 
(touche ACC) evec les caractères "-" (Haut), "/" (Bas), "," 
(Gauche) et "." (Oroit). 


Pour la Flèche Retour nous bâtirons le ceractère suivant : 


Bien entendu nous utiliserons le programme du chapitre 
précédent -(M.Bas 63)- pour bâtir ces cinq graphismes. 
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Les différentes touches seront identifiées par leur numéro 
de code ASCII, A chaque numéro de code il nous faut faire 
correspondre les numéros de ligne et de colonne écran où nous 
afficherons le symbole correspondant. 


Nous utiliserons pour ce faire deux variables C(N) et L(N), 
représentant la ligne et la colonne d'affichage du symbole de 
numéro de code N. Les caractères "controle" seront placés dans la 
même case que le caractère alphabétique correspondant, mais deux 
lignes au dessus. 


Nous noterons enfin que les touches de fonction ne sont que 
des caractères "controle". 


La frappe d'une touche de fonction ne peut ainsi se 
différencier de la frappe du caractère "controle" correspondant. 
Nous aurons donc deux affichages à faire dans ce cas, l'affichage 
de la touche de fonction et l'affichage du caractère alphabétique 
correspondant au carectère "controle" avec le convention de 
couleur retenue pour ce type de caractère. 


Rappelons que les caractères "controle" correspondant aux 
différentes touches de fonction sont les suivantes : 


STOP 02 CNT 8 

FLECHE GAUCHE 08 CNT H 

FLECHE DROITE 09 ENT I 

FLECHE BAS 10 CENT J 

FLECHE HAUT 11 CENT K 

RAZ 12 ENT L 

ENTREE 13 CNT m 

ACC 22 CNT V 

INS 28 ) il n'y a pas de 
DEL 29 ) caractère "controle" 
FLECHE RETOUR 30 ) correspondant 


Toutes ces données, indispensables pour la suite du 
programme, sont stockées par les instructions suivantes : 
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L'a 
À 


HA 


150 DEFGR$S(D) = 32: 64: 255: 65 SS, 1, 1, 255: 
DEFGR$(1) = 156, 144, 144, 152, 144, 144, 144, 1561 
DEFGR$(2) = 231,132, 132, 198; 132, 132, 132, 132: 
DEFGR$SCS) = 235, 73: 73: 775 759 735 731 2331 
DEFGR$(4) = 56,66, 66, 34, 18, 10, 18, 114 


208 DATA 5 25 71 29 Dr 29 119 29 139 2r 151 29 179 29 19 29 
2172» 28» Dh 271 4 20, 19 255 4, 221 19, 26, 9 


218 DATA 23, 4: Sr Gi 79 Gr Ds 49 115 &r 133 4 15» 4, 17,4, 
19,4, 21,4 


228 DATA 28; 7, 279 21 201 173 259 2 225 179 261 7r 241 19 


230 DATA 6, 9; 16: 19, 12, 19 119 145 109 9 139 149 15, 
143 17, 18, 20, 9 193 14, 219 14 231 14 


248 DATA 25; 149 18 19: 22» Gr 249 D 79 145 121 Dr 9 14e 
14, 9 18, 9 145 19 81 19, 10: 19, 16, 9, 8, 9, 
©; 6, @, @: O, Dr 24, 17 


258 DIM C(94),L(94) 
260 FOR I=33 TO 9%4:READ C(I),L(IDENEXT 


276 RESTORE 230:FOR I=x1 TO 26: 
READ C(I),LiL(I)=L-25NEXT 


280 AS=CHRS (22) :FG$=<A$+", ":FDS=AS+", "5 
FHS=AS+"-":FBS=n$+"/" 


150 
Définition des cinq graphismes utilisateur. 


GR$(O) est la Flèche Retour. GR$(1) et GR$(2) sont 
destinés à représenter la touche EFF, GR$(3) et GR$(4) la 
touche INS. 


200 
Données colonne, ligne pour les caractères de numéros de 
code ASCII compris entre 33 et 47 (ponctuation). 


210 
Données colonne, ligne pour les caractères de numéros de 
code ASCII compris entre 48 et 57 (chiffres). 
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114 


220 
Données colonne, ligne pour les caractères de numéros de 
code ASCII compris entre 58 et 64 (ponctuation). 


230 

Données colonne, ligne pour les caractères de numéros de 
code ASCII compris entre 65 et 76 (lettres majuscules de À à 
L). 


240 

Oonnées colonne, ligne pour les caractères de numéros de 
code ASCII compris entre 77 et 9% (lettres majuscules de M à 
Z (90) et symbole V renversé (9,4); les codes 91 à 93 ne 
correspondent pas à une touche du clavier, ce qui explique 
les six zéros en fin de DATA). 


250 
Réserve 95 places mémoire (0 à 94) pour les deux variables 
C(I) et L(I) -(M.Ref 46)- 


260 

Boucle de lecture des données et de chargement dans les 
veriables C(I) et L(I), pour les caractères de numéros de 
code ASCII compris entre 33 et 9, c'est à dire pour 
l'ensemble des touches exceptées les touches de fonction et 
les touches appelées avec la touche CNT enfoncée (caractères 
“controle"). 


Un caractère "controle" est présenté à l'écran dans la 
même colonne que le ceractère alphebétique correspondant, 
mais deux lignes au dessus. La varieble C(I) est donc la 
même et la verieble L(I) est diminuée de 2. I1 suffit donc 
de relire les données correspondant aux ceractères 
elphebétiques et de réduire de 2 les données correspondant à 
la variable L(1). 

Le relecture des données pour les carectères elphabétiques 
impose de remettre le pointeur de OATA au début de ces 
C'est le rôle de l'instruction RESTORE 230 -(M.Ref 
100)- 


280 

Construction des quatre caractères Flèches par 
conceténetion du ceractère CHR$(22) (Touche ACC) avec les 
caractères "," (Flèche Gauche), "." (Flèche Oroite), "-" 
(Flèche Haut) et "/" (Flèche Bas). 


I1 nous reste maintenant à bâtir le programme principal 
permettent d'efficher à l'écran le symbole correspondant à la 
touche frappée. 


Rappelons que nous evons décidé d'afficher le symbole 
correspondant à le dernière touche frappée en Rouge (1) pour bien 
le distinguer des autres symboles. Dès qu'une autre touche a été 
frappée, la couleur du symbole doit passer du Rouge au Bleu (4), 
si c'est Un ceractère alphabétique, du Rouge au Blanc (7) sur 
fond Magenta (5), si c'est un caractère "controle", du Rouge au 
Noir (0), si c'est une touche de fonction. 


Enfin dans le cas des touches de fonction, le caractère 
"controle" correspondant doit s'afficher. Ce même sur frappe 


d'un caractère "controle" correspondant à une touche de fonction, 
la touche de fonction doit s'afficher. 


300 COLOR 4:K=-1:LOCATE S, 0, 0: 
PRINT "TESTEZ LES DIFFERENTES TOUCHES" 


310 R$=INPUTS#C1) 


320 R=ASC(R$S):IF R)96 THEN CLS:SCREEN 4, 6, 6: END 
ELGE IF R(27 THEN RN$S=CHR$S(R+64) ELSE RN$=R$ 


330 IF K=-1 GOTO 370 

340 IF K(27 THEN Ci=7:02=5 ELSE Ci=4:C2=<6 
350 IF K)26 AND K(33 GOTO 370 

360 LOCATE C(K),L(K) COLOR Ci, C2:PRINT RAS 
370 K=R:IF K)26 AND K(3S3 GOTO 3930 


380 LOCATE C(K),L(CK) COLOR 1,6: 
PRINT RNS:RA$=RNS 


390 ON 1-(CK=2)-2#CK=8) —-3x(K=9) -4x(K=18) 
5x (K=11)-6KCK=12)-7#CKs=13) -Bx(K=22) 
-9(K=28)-10% (K=29)-11(K=30) -12#CK=32) 
GOTO 310, 400, 500, 600, 700. 600, 900; 
1000, 1100, 1200, 1300; 1408, 15008 


115 


116 


400 


41@ 


500 


510 


600 


610 


708 


710 


800 
810 


900 
910 


1000 


101@ 


1100 
1110 


1208 


1210 


LOCATE 1,:3:COLDR 1:6:PRINT "STP" 


R$=INPUTS(1) :LOCATE 1,23: 
COLOR 0, 6: PRINT "STP":GOTO 320 


LOCATE 34, 8: COLOR 1, 6: PRINT F6$ 


R$S=INPUT$S(1):LOCATE 34,8: 
COLOR ©, 6: PRINT FG6$:GOTD 320 


LOCATE <7, 8: COLOR 1, 6:PRINT FD$ 


R$=INPUTS$(1):LOCATE 37,8: 
COLOR Q,6:PRINT FD$:GOTO 320 


LOCATE 37, 3:CDLOR 1, 6:PRINT FB$ 


R$=INPUT$#(1):LOCATE 37, 3: 
COLOR G, 6: PRINT FD$:GOTO 320 


LOCATE 34, S:COLOR 1,:6:PRINT FH$ 


R$=INPUT$(1):LDCATE 34,3: 
COLOR @,6:PRINT FH$:G6O0T0 320 


LOCATE 1, 13:COLOR 1,6:PRINT "RAZ" 


R$S=INPUTS(1) :LOCATE 1,13: 
COLOR @,6:PRINT "RAZ":GOTO 320 


LOCATE 27, 13:COLDR 1,6: 
PRINT "ENTREE" 


R$S=INPUTS(C1) :LOCATE 27,13: 
COLOR @, 6: PRINT "ENTREE":GOTO 320 


LOCATE 29, 3S:COLOR 1,:6:PRINT "ACC" 


R$S=INPUTS(1):LOCATE 29, 3: 
COLOR @, 6:PRINT "ACC":GDTO 32@ 


LOCATE 34, 18: COLOR 1,6: 
PRINT GRS$C3S) :GR$& (4) 


R$=INPUTS(1) :LOCATE 34, 168: 
COLOR 0, E: PRINT GR$(3) :GR$ (C4) : GOTO 


320 


1300 LOCATE 36: 18: COLOR 1,6: 
PRINT GR$(1) :GR$(2) 


1310 R$=INPUT$(1) :LOCATE 36, 18: 
COLOR @, 6: PRINT GR$(1):GRS$(2) :GOT0 320 


1408 LOCATE 35, 13: COLOR 1,6: 
ATTRB 1,@:PRINT GR$(B) 


1410 R$S=INPUTS(1) :LOCATE 35,13: 
COLOR 0, 6: PRINT GR$(@) :ATTRB ©, @: 
GOTO 320 


1500 BOXF (72; 175)-(199, 198) ; -2 


1519 R$=INPUTS(1): 
BOXF (72, 1752-(199, 198); -6:60T0 320 


300 
a/ Fixe la couleur des caractères au Bleu (4). 


b/ Fixe à -1 la valeur de la variable K. 


K sera utilisé comme un indicateur pour signaler le début 
du programme. On sera amené en effet à changer la couleur du 
dernier symbole affiché. Or en début de programme il n'y a 
pas de symbole précédent. 


Il est donc nécessaire, en début de programme, de sauter 
la partie de programme (340 - 360) consacré au changement de 
couleur (voir l'instruction sous l'étiquette 330). 


c/ Place le curseur en ligne D, colonne 5 et l'efface. 


d/ L'affichage du message "TESTEZ LES DIFFERENTES 
TOUCHES", avertit l'utilisateur que le test est prêt. La 
lecture des données (150 - 280) prend en effet un certain 
temps pendant lequel la frappe des touches est sans effet. 


310 

Le programme se met en attente de la frappe d'un caractère 
(et d'un seul puisque le paramètre N figurant dans le 
INPUTS(N) -(M.Ref 174)- est égal à 1 ) et le place dans la 
variable R$. 
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Laits 


Las 
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320 
a/ R est le numéro de code ASCII du caractère figurant 
dans R$ -(M.Ref 111)- 


b/ Il est impossible de stopper le programme par 
intervention sur la touche STOP ou en tapant CNT C, puisque 
chacun de ces caractères est interprété comme l'un des 
caractères à afficher à sa place sur l'écran. 


Par contre les caractères minuscules peuvent être 
utilisés comme signal de clôture de programme, puisqu'ils 
n'ont pas à être affichés sur l'écran. 

Le numéro de code ASCII de "a" est 97. Si par suite c'est 
une minuscule qui est tapée, R est supérieur à 96, ce qui 
est utilisé pour brancher le programme sur les instructions 
CLS (effacement de l'écran), SCREEN 4,6,6 (remise des 
couleurs à leurs valeurs standard et END (fin de programme). 


Si une touche quelconque, autre qu'un caractère minuscule 
est frappé ce sont les instructions situées après ELSE qui 
sont exécutées. 


Ces instructions comportent elles aussi une condition. 


Si le numéro de code ASCII R de R$ est inférieur à 27, 
c'est que le caractère est un caractère "controle". Or à un 
ceractère "controle" ne correspond aucun symbole affichable. 


Il est donc nécessaire d'afficher le caractère 
alphabétique, tapé avec la touche CNT maintenue, en lieu et 
place du caractère "controle" lui-même. 


Le numéro de code ASCII de CNT À est 1 et le numéro de 
code de A est 65. Par suite le caractère alphabétique, 
correspondant au caractère "controle" de numéro de code R, a 
R + 64 pour numéro de code propre. 

En conséquence si R est inférieur à 27, on affichera le 
caractère RN$ = CHR$(R+64) sinon (ELSE) on affichera le 
caractère R$ lui-même (RN$ = R$). 


330 

Si K est égal à -1, ce qui n'arrive qu'en début de 
programme, les instructions 340 à 360, consacrées au 
changement de couleur d'affichage du précédent symbole, sont 
sautées (il n'y a pas de précédent symbole au début du 
déroulement du programme). 


Lions 


Lin 


On verra (étiquette 370) que K est posé égel au numéro de 
code ASCII R de la touche freppée. Per suite K n'a bien la 
veleur -1 qu'en début de programme. 


340 - 360 

Ces instructions sont destinées à chenger la couleur du 
précédent symbole affiché. Nous les étudierons après avoir 
exeminé les instructions d'effichage du symbole 
correspondant à la dernière touche freppée. 


370 
a/ K est posé égal à R, numéro de code ASCII de la 
dernière touche frappée. 


b/ Les numéro de code ASCII de 27 à 32 ne sont pas des 
numéros de code de carectères "controle". Ils ne donnent 
donc pas lieu à l'affichage d'un cerectère alphabétique 
correspondant. Par contre trois d'entre eux correspondent à 
une touche de fonction (28 INS, 29 EFF, 30 Flèche Retour) et 


un quatrième, 32, correspond à le barre d'espace. 


Par suite si K est compris entre 26 et 33 (bornes 
exclues), le programme saute l'étiquette 380 contenant les 
instructions d'affichage des ceractères elphanumériques à 
l'écren. 


380 
a/ Positionne le curseur en colonne C(K), ligne L(K) 
correspondant au symbole numéro K. 


b/ Fixe la couleur des caractères au Rouge (1), sur fond 
Cyen (6). 


c/ Affiche le caractère RN$ 


d/ Pour pouvoir changer la couleur du caractère qui vient 
d'être affiché, dès qu'une nouvelle touche est frappée, il 
est nécessaire de garder en mémoire le symbole et son numéro 
(c'est K qui n'est posé égal à R, en 370, qu'une fois le 
changement de couleur effectué). Aussi, une fois affiché 
RN$, pose-t-on RA$ = RN$ (A pour "ancien" et N pour 
Mnouveau"). C'est donc le symbole RA$ de numéro K dont on 
modifiera la couleur (en 340 - 360), alors que l'on a déjà 
enregistré le numéro R du nouveau symbole RN$. 
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Nous pouvons maintenant étudier les instructions 340 - 360 
de changement de couleur. 


#*#% 340 

Si le caractère est un caractère "controle" (numéro de 
code ASCII inférieur à 27), il doit être affiché en Blanc 
(7) sur fond Magenta (5), sinon il est affiché en Bleu (4) 
sur fond Cyan (6). Les deux paramètres C1 et C2 sont alors 
posés égaux respectivement à 7 et 5 dans le premier cas 
sinon égaux à 4 et 6 dans le second cas. C1 et C2 seront 
utilisés dans l'instruction COLOR en 360. 


#%x 360 
Si K est dans l'intervalle 26 - 33, bornes exclues, aucun 
symbole alphabétique n'a été affiché (voir étiquette 370). 
Il est donc nécessaire de sauter l'étiquette 360 de 
changement de couleur du dernier symbole. 


vevete 360 
a/ Place le curseur en colonne C(K), ligne L(K) 
correspondant au symbole de numéro K (le dernier affiché). 


b/ Fixe la couleur caractère à C1 et la couleur fond à C2, 
C1 et C2 ayant été déterminés en 340, 


c/ Affiche le symbole RA$ avec les couleurs C1, C2. 


Reprenons maintenant la suite des instructions, là où nous 
les avions laissées pour retourner aux instructions de changement 
de couleur. 


##k* 390 
Nous avons affiché les ceractères alphanumériques sans 
tenir compte jusqu'ici des touches de fonction, c'est à dire 
que la frappe d'une touche de fonction a eu pour seul effet 
l'affichage du caractère "controle" correspondant s'il 
existait. 
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I1 nous feut donc maintenant vérifier que le numéro de 
code ASCII R du dernier carectère frappé correspond ou non à 
une touche de fonction (codes 2, 8, 9, 10, 11, 12, 13, 22, 
28, 29, 30 et 32). 


La varieble, figurant comme paramètre dans l'instruction 
ON  GOTO est celculée à pertir de variables logiques de la 
forme (K = I), I prenant les diverses valeurs de K 
correspondant aux touches de fonction. Elle prend les 
valeurs 2, 3,...,12, 13 suivant que K est égal à 2, 
8,...,30, 32 et la valeur 1 si K n'est égal à aucun des 
codes de touche de fonction. 


L'instruction ON GOTO branche alors à la première 
étiquette, soit 310 pour K quelconque (la touche n'est pas 
une touche de fonction, auquel cas il suffit de se brancher 
en 310 pour attendre une nouvelle frappe). Elle branche à le 
deuxième étiquette, soit 400, pour K = 2 (touche STOP), à la 
troisième, soit 500, pour K = 8 (touche Flèche Gauche),...,à 
la treizième étiquette, soit 1500, pour K = 32 (Barre 
d'espece). 


400 - 1510 
Toutes ces instructions ont la même structure. 


Elles sont destinées à afficher les touches de fonction. 
Elles sont branchées par l'instruction 390. 


Nous n'examinerons que la première d'entre elles en nous 
bornant à ne signaler que les quelques cas particuliers, 


400 


Cette étiquette est atteinte pour K = 2 (numéro de code 
ASCII de la touche STOP) 


a/ Place le curseur en colonne 1, ligne 3. 


b/ Fixe la couleur caractère au Rouge (1) sur fond Cyan 
(6). 


c/ Affiche la chaine "STP" pour la touche STOP. 
410 
Le changement de couleur de la chaine de caractères 


affichée en Rouge par l'instruction précédente ne peut se 
faire par la méthode utilisée en 340 - 360. 
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Il est donc nécessaire de prévoir une instruction 
: : £ 7 ; 
particulière qui dès que la touche suivante a été frappée 
effectue le changement de couleur. 


a/ Met en attente le programme jusqu'à ce qu'une touche 
ait été frappée. Cette instruction joue le même rôle que 
l'instruction en 310. 


b/ Place le curseur en colonne 1, ligne 3, c'est à dire 
sur la première lettre de la chaine STP, précédemment 
affichée en Rouge. 


c/ Fixe la couleur des caractères au Noir (0) sur fond 
Cyan (6). 


d/ Affiche la chaine STP en Noir. 


e/ La dernière touche frappée ayant été mise en mémoire 
dans la variable R$, le programme est branché en 320 pour 
reprendre le cours du programme principal. 


1400 - 1410 

La seule différence avec les autres étiquettes réside dans 
l'instruction ATTRB 1,0 qui permet de tracer le caractère 
utilisateur représentant la Flèche Retour en double largeur. 
On notera que l'étiquette 1410 comporte une instruction 
ATTR8 O,0 pour ramener la dimension des caractères à la 
valeur normale. 


1500 - 1510 

La première instruction passe au Rouge fond (-2) 
l'intérieur du cadre dessiné en 100 pour représenter la 
barre d'espace et la seconde, après recueil de la touche 
suivante passe l'intérieur du cadre au Magenta (-6). 


En définitive le programme est le suivant: 


18 CLSISCREEN 0, 6, 6:CLERAR ; ; S:LOCATE 0,0, 0 


20 YO=14:DY=26:BOX C4, YB) -C33, YS+DY): 
BOX (36, YD) -(269; YB+DY): 
BOX (268: YD) -(284, YG+DY): 
BOX (290, YGW)-(387; YG+DY) 

30 S=12:FOR I=4 TO 15:GOSUB 2000:NEXT 


40 


60 


76 
80 


90 


100 


150 


200 


210 


220 


230 


240 


YG=S54:BOX (44, YB)-(236, YW+DY) : 
BOX (268, YGÿ-(284, YO+DY) : 
BOX (290, YG)-(387; YG+DY) 


S=4:FOR 1=4 TO 14:GOSUB 2008: NEXT 
YG=94:BOX (4, YS)-CSS3, YO+DY) : 

BOX (52, YG)-(212: YG+DY): 

BOX (215; YB) -(264; YS+DY ) : 

BOX (268, YDW)-(307, YG+DY) 

S=12:FOR 1=5 TO 13:GOSUB 20808: NEXT 
Y8=134: BOX (60, YW) -(204, YB+DY): 
BOX (268, YO) -(286, YG+DY) : 

BOX (288, YB)-(307, YG+DY) 


S=4:FOR 1=5 TO 1S5:GOSUB 20GG:NEXT 


BOX (71, 174)-(C2808; 199) 

DEFGR$(QG) = 32, 64, 255, 65, 33, 1, 1, 255: 
DEFGR$(1) = 156, 144, 144, 152, 144; 144, 144: 156: 
DEFGR$(2) = 231,132; 132; 198, 132; 132; 132; 152: 
DEFGR$(3) = 233, 73: 73: 775 759 731 731 233: 
DEFGR$(4) = 58,66, 66, 34, 18, 19, 19, 114 


DATA 5,2, 7:52: 9525 119 21 133 2 191 2» 175 21 19 2 
215 21 285 9 273 43 20r 19 25 45 22: 19; 26, 9 


DATA 23, 41 5 &r 79 49 99 45 113 43 153 dr 159 4r 175 dr 
19,4, 21.4 


DATA 28, 7, 27, 21 20; 173 259 25 221 175 267 71 241 19 


DATA 6, 9, 16, 19, 12, 19, 11, 14, 10, 9, 13; 14: 15, 
14,17, 14, 20, 9; 19, 14, 21; 14, 25, 14 


DATA 25,14, 18, 19, 22, 9, 24, 9, 7, 14, 12, 9, 9, 14, 
14,9, 18, 9, 14, 19, 8, 19, 10, 19, 16,9, 8,9, 
0, @, 4, 6, 0, @, 24, 17 
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25@ DIM Ct94),LCS94) 
260 FOR 1=33 TO S4:READ CCI), LCI) :NEXT 


270 RESTORE 230:FOR I=1 TO 26: 
READ CCI), L'LCI)=L-2:NEXT 


280 A$=CHR$S (22) :FG$=A$+", ":FD$=A$+", 2 
FHS=A$S+"— 1: FB#$=AS+"/ " 
300 COLOR 4:K=-1:LOCATE 5, 0, Q: 
PRINT "TESTEZ LES DIFFERENTES TOUCHES" 
310 R$=INPUT#(1) 


320 R=ASC(R#):IF R)96 THEN CLS:SCREEN 4,6, 6:END 
ELSE IF R(27 THEN RN$S=CHR$SCR+64) ELSE RN$=R#$ 


330 IF K=-1 GOTO 370 

340 IF K(27 THEN C1=7:C2=S ELSE Ci=4:C2= 
350 IF K)26 AND K(33 GOTO 370 

360 LOCATE CCK), L(K) COLOR C1, CZ: PRINT RA$ 
376 K=R:IF K)26 AND K(33 GOTO 390 


380 LOCATE C(CK), LCK) COLOR 1,6: 
PRINT RN$:RA$S=RNS 


390 ON 1-(CK=2)-2#CK=8)-3#(K=9)-4KCK=10) 
—OJ+CK=11)-6+CK=12)-7#CK=13)-8+x(K=22) 
—9+CK=28) -10+(K=29) -11#(K=32)-12#(K=32) 
GOTO 310, 400, 500, 600, 700, 500, 300, 

1000, 1100, 1200, 1300, 1400, 1500 

200 LOCATE 1,3:COLOR 1, 6:PRINT "STP"“ 


410 R$=INPUT#C1):LOCATE 1,3: 
COLOR G,6:PRINT "STP":GO0OTO 320 


500 LOCATE 34, 8: COLOR 1: 6:PRINT FG$ 


910 R$=INPUT#(1) :LOCATE 34, 8: 
COLOR G@: 6: PRINT FG$:GOTO 329 
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600 


610 


1210 


1300 


1310 


LOCATE 37, S:COLOR 1,6: PRINT FD# 


R$=INPUT#(1):LOCATE 37,8: 
COLOR G, 6: PRINT FD#:GOTO 329 


LOCATE 37, 3: COLOR 1, 6:PRINT FB$ 


R$=INPUT$(1):LOCATE 37, 3: 
COLOR 6, 6: PRINT FD$:GOT0O 32Q 


LOCATE 34, 3: COLOR 1,6:PRINT FH$ 


R$=INPUT$#(1):LOCATE 34, 3: 
COLOR 6, 6: PRINT FH$:GOTO 320 


LOCATE 1,13:COLO0R 1,6:PRINT "RAZ"“ 


R$=INPUT#C1) :LOCATE 1,13: 
COLOR @,6:PRINT "RAZ'":GO0OTO 329 


LOCATE 27, 13:COLOR 1,6: 
PRINT "ENTREE" 


R$=INPUT#(1) :LOCATE 27,13: 
COLOR 0, 6: PRINT "ENTREE":GOTO 329 


LOCATE 29, 3: COLOR 1:6:PRINT "ACC" 


R$=INPUT#(C1) :LOCATE 29, 3: 
COLOR 6, 6: PRINT "ACC":GOTO 320 


LOCATE 34, 18: COLOR 1,6: 
PRINT GR$(3) :GR$C4) 


R$=INPUTS(1) :LOCATE 34, 18: 
COLOR 0, 6:PRINT GR$13) :GR$&(C4) =: GOTO 


LOCATE 36; 18:COLDR 1,6: 
PRINT GR#$t1):GR#$12) 


R$=INPUT#$(1) :LOCATE 36, 18: 


COLOR 0, 6:PRINT GR#(1) :GR$(2) :GOTO 320 
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126 


1400 


1410 


1500 


1510 


2000 


LOCATE 35, 13: COLOR 1,6: 
ATTRB 1, G@:PRINT GR#(O) 


R$=INPUT#$ (1) :LOCATE 35, 13: 

COLOR 6, 6: PRINT GR$(Q) :ATTRE @, D: 
GOTO 320 

BOXF (721 175)-(199, 198), -2 
R$=INPUT$(1): 

BOXF (72; 175)-(199, 198), -6:GOT0O 320 


X=16%I-SELINE (X; YB)-CX: YD+DY) : RETURN 
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Miniécriture 


Le BASIC T07 dispose d'un jeu de caractères s'inscrivent 
dans un carré de 8 x 8 points. Il est par ailleurs possible, 
grâce à l'instruction ATTRB -(M.Ref 26)- de tracer ces mêmes 
caractères dans des rectangles 8 x 16, 16 x B ou des carrés 16 x 
16. 


Par contre il n'est pas possible de tracer des caractères 
plus petits. Or dans certaines applications, lorsque l'écran est 
très encombré, il pourrait être fort utile de disposer de 
caractères plus petits. 


A première vue le problème semble insoluble, puisque les 
caractères dits utilisateur, définis par l'instruction DEFGRS(N) 
et affichés par PRINT GR$(N), occupent eux aussi un carré de 8 x 
8 points. 

11 nous faudrait donc bâtir des caractères utilisateur 
regroupant deux minicaractères dans un même carré 8 x 8. En 
admettant que l'on se contente de reproduire seulement les 26 
majuscules, il nous faudrait bâtir 26 x 26 = 676 caractères 
représentant toutes les combinaisons de deux lettres. Outre le 
travail fastidieux de définition de ces 676 caractères, on tombe 
sur une impossibilité du fait que l'on ne peut stocker plus de 
128 caractères utilisateur ! 


Les quelques remarques suivantes, reposant sur la façon 
dont sont constitués les caractères utilisateur, vont nous 
permettre de trouver une solution. 


Bêtissons le caractère A inscrit dans un rectangle de 
trois points de large et de cinq points de haut et que nous 
pläçons dans le coin bas-droite de la matrice 8 x 8 des 
caractères utilisateur. 
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Bâtissons de même un second caractère, 8 par exemple avec 
les mêmes règles. 


sesnesDe .....D0. 
.....D.0 .....D D 
.....0.0 .....00. 
.....000 .....0.0 
....-D.0 .... 000 


Le caractère À est représenté par les huit nombres binaires 
suivants avec leurs équivalents décimaux : 


00000000 
00000000 
00000000 
00000000 
ss 0000 
O-00-000 
0000 
WU NHUNnHh 
nmnInmnnmnNOOO 


Prenons la dernière ligne 0 000101(-5). 


Si nous multiplions par deux sa valeur décimale, nous 
obtenons 0 0 0 1 O0 1 O. Si nous multiplions par 4 sa valeur 
décimale, nous obtenons D 0 1 0 1 O O0. Chaque multiplication par 
2 de la valeur décimale se traduit donc par un déplacement de la 
ligne de points correspondante de un point vers la gauche. 


Ainsi en multipliant par 32, chacune des huit valeurs 
décimales de définition du mini A, placé en bas à droite du carré 
8 x 8, nous obtenons les huit valeurs caractéristiques d'un 
caractère utilisateur représentant un mini A, placé en bas à 
gauche du même carré. 


Les valeurs caractéristiques du mini À placé à gauche sont 
donc 0, 0, 0, 64, 160, 160, 224, 160. Si maintenant nous voulons 
placer le mini À en haut à gauche, il nous suffit de permuter les 
valeurs des huit lignes de la façon suivante : 64, 160, 160, 224, 
160, 0, 0, 0. 
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Replaçons notre mini A en bas à gauche et considérons la 
ligne inférieure caractérisée par 1 O0 1 0 O0 0 O O0 = 160. 


Si nous ajoutons à cette valeur décimale, la valeur 
décimale correspondant à la dernière ligne du mini B placé en bas 
à droite (00000111 =7), nous obtenons 1 0100111- 
167. 


Ainsi en ajoutant aux valeurs décimales du mini À en bas à 
gauche les valeurs décimales du mini 8 à droite, nous obtenons 
les valeurs décimales du caractère composé du mini À à gauche et 
du mini 8 à droite. 


Nous sommes maintenant en mesure de "calculer" tout 
caractère utilisateur composé de deux mini caractères dont on 
connait les cinq valeurs caractéristiques (pour les situer en 
hauteur" à l'intérieur du carré 8 x 8 il suffit de compléter ces 
cinq valeurs par trois zéros répartis entre le début et la fin de 
liste (3 zéros en début de liste pour placer les deux caractères 
sur la ligne du bas, 3 zéros en fin de liste pour les placer 
"collés" en haut du carré, etc). 


En pratique nous disposerons nos deux caractères en 
laissant libre la première colonne de points du carré 8 x 8. 
Ainsi le caractère AB sera : 


ss... 


..0..00. 
-0.0.0.0 
.0.0.00. 
.000.0.0 
-0.0.000 


Si NA(L) est la valeur décimale caractérisant la ligne L du 
mini A (placé à droite) et si NB(L) est la valeur décimale 


caractérisant la ligne L du mini 8 (placé à droite également), la 
valeur décimale de la ligne L du caractère AB est donc donnée par 


NAB(L) = 16 * NA(L) + NB(L) 
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Nous n'avons multiplié NA(L) que par 16, puisque nous ne 
déplaçons le caractère que de 4 points vers la gauche, pour 
laisser vide la première colonne du carré. 


Pour obtenir toutes les combinaisons de minicaractères, il 
suffit donc de stocker les 26 x 5 valeurs décimales correspondant 
à chacun des 26 caractères alphabétiques À à Z et de calculer 
successivement, en regroupant deux à deux les caractères de la 
chaîne à écrire, chacun des caractères utilisateur 
correspondants. Oès qu'un caractère calculé est affiché par un 
PRINT il est remplacé par le nouveau caractère calculé. Il suffit 
donc de réserver une seule place mémoire pour le caractère 
GR$(0), qui sera redéfini par OEFGR$(0O) autant de fois que 
nécessaire. 


Pourquoi alors s'en tenir aux seules 26 majuscules ? Il est 
possible de mettre en mémoire les 63 groupes de 5 valeurs 
décimales correspondant aux caractères de numéro de code ASCII 
variant de 32 à 94 (il ne faut pas oublier l'espace, de numéro de 
code ASCII 32, dont les 5 valeurs sont évidemment nulles). 


Nous allons donc d'une part bâtir un premier programme 
pour stocker les 315 valeurs caractérisant nos 63 caractères puis 
un deuxième programme d'utilisation permettant d'écrire une 
chaîne de minicaractères. Ce deuxième programme sera d'ailleurs 
écrit sous forme de sous-programme, car il ne doit constituer 
qu'un élément d'un programme principal de "dessin" sur l'écran. 


KA XX 


Le programme de stockage des données a pour but de placer 
les 315 valeurs en mémoire de façon à les récupérer aisément pour 
"calculer" chacun des caractères utilisateur. 


Chaque minicaractère élémentaire est caractérisé par 5 
valeurs comprises entre 0 et 7, puisque les points de chaque 
ligne ne peuvent occuper qe les trois places de droite (aucun 
point 00000000-=-0, les trois points 00000111 = 7) 


, Il est donc commode de les stocker directement dans les 
mémoires disponibles, par des instructions POKE -(M.Ref 86)-, 
pour les récupérer ultérieurement par des instructions PEEK 
-(M.Ref 132)-,. 
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Le problème que l'on se pose généralement est celui de la 
place mémoire la plus favorable pour effectuer ce stockage. 


I1 est nécessaire pour répondre de connaître comment est 
organisée la mémoire. L'annexe F du Manuel de Référence -(M.Ref 
221)- donne quelques renseignement à ce sujet. 


Les mémoires ont une adresse variant de O0 à 65535 (en 
numérotation héxadécimale $0 à $FFFF le signe $ signifiant que la 
valeur numérique qui suit est exprimée en héxadécimal). Une note 
en fin de ce chapitre donne la façon pratique pour passer de la 
numérotation décimale à la numérotation héxadécimale en utilisant 
le T07. 


Les 16383 premières mémoires ($0 à $3FFF) sont réservées au 
BASIC et résident physiquement dans la cartouche “mémo 7" 
enfichable. 


Les mémoires de 16384 à 24575 ($4000 à $5FFF) constituent 
la mémoire écran. C'est dans ces octets que sont stockées les 
données forme et couleur. 


Les mémoires de 24576 à 24B31 ($6000 à S$60FF) sont 
utilisées par le système pour y loger ses propres données. Ces 
256 octets portent le nom de Page 0. 


Toutes ces mémoires sont bien entendu inutilisables pour y 
stocker des données. 


Les mémoires de 24832 à 61439 ($6100 à S$OFFF) sont 
disponibles pour l'utilisateur. 


En pratique, si l'on n'a pas installé de mémoire 
additionnelle, seules les 7936 premières mémoires de 24832 à 
32767 ($6100 à 9$7FFF) sont utilisables. On dit que la mémoire 
disponible est de 8K. Ces 8 Kilooctets, c'est à dire B x 1024 = 
8192 constituent les mémoires comptées à partir de 24576 ($6000). 
En toute rigueur il y a un peu moins de 8K disponibles puisque 
les 256 octets de la Page 0 ne sont pas utilisables. 


Par contre avec les 16K de mémoire additionnelle, il y a 


24K = 24 x 1024 = 24576 mémoires de 24576 à 49151 ($6000 à $BFFF) 
dont 24320 sont disponibles de 24832 à 49151 ($6100 à $BFFF ). 
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Enfin pour en terminer avec la mémoire, sachons que la 
plage 61440 à 65535 ($E000 à $FFFF) est attribuée au système et 
est bien entendue inutilisable pour y stocker des données. 


On sait que l'instruction CLEAR 1,J,K -(M.Ref 32)- permet 
de réserver de la place mémoire pour y stocker des données ou des 
programmes en langage machine. Le paramètre J fixe la plus haute 
adresse mémoire que l'interpréteur BASIC peut utiliser pour 
stocker le programme et les variables. Les mémoires au dessus de 
J sont donc protégées et il est possible d'y stocker des 
programmes en langage machine ou des données. 


En conséquence, si nous disposons d'une mémoire 
additionnelle, nous logerons nos 315 valeurs à partir de 48831, 
en posant le paramètre J de CLEAR égal à 48830 (cela laisse 
quelques mémoires disponibles aux adresses les plus hautes, mais 
nous n'en sommes pas à quelques octets près). 


Par contre si nous n'avons pas de mémoire additionnelle 


nous logerons nos 315 valeurs à partir de 32451, en posant le 
paramètre J égal à 32450. 


Une fois ces valeurs stockées en mémoire il est 
indispensable de les sauver sur la cassette pour pouvoir les 
récupérer ultérieurement pour le programme d'utilisation. 

Cette sauvegarde se fait par l'instruction SAVEM -(M.Ref 
181)-. Nous en verrons le détail dans le programme lui-même. 


Le programme se présente alors de la façon suivante : 


10 CLS:SCREEN 4,6, 6:CLEAR , 32450:M0=32451 


Z8 DATA @, 0,0, @, Q; 21 23 21 @s 21 S1 Sr @r Ds Or Dr @> 7, 5 7; 
3 6, 2 3,6 


21 DATA 4, 1:24; 1,3 3:63 75 25 19 Zs Or Or @ 25 4 &s 43 2 
211,12 


22 DATA 0, @: 5; 2 55 @r @, 23 77 25 Or Os @, 23 45 @r Or Or 79 D 
@, @; Q; @; Z 
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23 DATA @,@, 1: 2,43 75 Sr So Dr 71 21 69 Zoe Zr 79 79 15 Sr Go 70 
71131: 7 


24 DATA 1,395 75 15 7v@5 750 75 204573 So 79 79 15 do lo 1 
759177 


23 DATA 7:53 79 11 7 Or Os 23 @s 23 Qr 23 Qr 29 &s À 3 2 Gr 25 1 
8,0, 70,7 


26 DATA 42313234 73 1e 23 Oo 25 75 99 d5 79 79 25 Ds Dr 79 90 
63 95 6: Si 7 


27 DATA 74,4 437, 65 53 So 95 Br 79 41 63 or 79 75 &r Gr br 
7 ds 5 5 7 


28 DATA 5,5, 75 9295 79 29 29 29 79 1915 dr 99 79 So 69 Gr 91 9 
hs ä4 4; 47 


29 DATA 5, 7:55 Sr So Dr 79 79 75 O9 72 Or 95 Ov 79 75 Oo 75 3 4 
7195 9 797 


30 DATA 755 ‘r6r 5 79 45 75 15 79 79 29 21 21 25 Dr Or O9 Do 7 
Sr Dr D D 2 


31 DATA 5 5 So 79 Do Sr Do 25 Do Ov Or Do Zr 29 21 79 dr 29 Gr 73 
6,4,4,4,6 


32 DATA @@, 4,25 11 35 dr dr Sr 29 79 2r 2+ 2 
20@ FOR 1=@ TO Si4 

210 READ Z:POKE MO@+I,7 

220 LOCATE 15, 1Z:PRINT MO@+1:7 

Z30 NEXT 


300 SAVEM "DATAMINS$", MD, :2767, 0 


10 
a/ Efface l'écran. 


b/ Fixe la couleur des caractères au Bleu (4), du fond et 
de l'entourage au Cyan (6). 
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134 


c/ Met à zéro toutes les variables. Réserve la plage 
mémoire de l'adresse 32450 jusqu'à l'adresse maximale 
correspondant à la configuration de la machine. 


Nous avons supposé ici que la machine ne dispose pas de 
mémoire additionnelle. L'adresse maximale est donc 32767. On 
a ainsi réservé la place d'un peu plus de 315 octets. 


Dans le cas où l'on dispose de la mémoire additionnelle de 
16K, l'instruction CLEAR doit s'écrire CLEAR ,48B30 car 
l'adresse maximale est dans ce cas 49151 (en toute rigueur 
on aurait pu retenir CLEAR ,48836 pour loger exactement nos 
315 octets). 


On notera la virgule précédant la valeur numérique, 
précisant que cette valeur fixe le second paramètre, le 
premier étant pris égal à 300 par défaut pour le traitement 
des chaînes de caractères. On notera en outre qu'il n'y a 
pas de virgule après la valeur numérique, le dernier 
paramètre étant dans ce ces pris par défaut égal à zéro 
(nombre de caractères utilisateur, nul dans ce programme, ce 
qui ne sera pas le cas dans le programme principal). 


d/ MO est l'adresse de la première mémoire de stockage des 
données (32451 sans mémoire additionnelle, 48831 avec 
mémoire additionnelle). 


20 - 32 

Les données sont tout d'abord mémorisées sous forme de 
OATA -(M.Ref 3B)- car il est plus commode de les taper et de 
les vérifier sous cette forme. 


Les données sont placées par groupes de 5 x 5 sous une 
même étiquette, chaque paquet de cinq correspondant aux 
cinq paramètres caractéristiques d'un caractère. Les 
caractères ont été bâtis, par le programme de conception du 
Chapitre V -(M.Bas 63)- dans l'ordre des numéro de code 
ASCII à partir du numéro de code 32 (espace) jusqu'au numéro 
de code 94. 


Cette disposition des OATA permet une vérification 
partielle sur le nombre de données figurant sous une 
étiquette. Les derniers chiffres doivent s'aligner sur une 
même colonne. 


Une telle précaution peut paraître futile. 


KA 


Lin 


On se souviendra toutefois qu'il est très facile de sauter 
un caractère au cours de la lecture et de la frappe de 315 
chiffres ou de taper l'un d'entre eux deux fois. Or une 
telle erreur conduit à un décalage de toutes les données 
provoquant une véritable catastrophe au niveau des futurs 
caractères en mêlant les paramètres d'un caractère avec 
ceux du suivant et du précédent. 


Bien entendu cela n'empèche pas de commettre des erreurs, 
mais celles-ci seront limitées à des valeurs erronées se 
traduisant par une déformation du caractère correspondant, 
facilement identifiable. La reconnaissance du caractère 
déformé et donc de son numéro de code ASCII permettra alors 
de retrouver facilement les cinq paramètres correspondants, 
d'autant plus qu'ils sont regroupés par paquets de cinq. 


200 
Ouverture d'une boucle en I de D à 314 


210 
a/ Lecture dans les OATA du paramètre Z. 


Rappelons que les données -(M.Ref 3B)- sont lues dans 
l'ordre où elles figurent dans les instructions OATA, 


b/ La valeur Z est chargée dans l'octet d'adresse MD+I 
-(M.Ref B6)-. 


220 
a/ Place le curseur en colonne 15, ligne 12, c'est à dire 
sensiblement au milieu de l'écran. 


b/ Affiche l'adresse de la mémoire que l'on vient de 


charger et la valeur chargée. 


Cette dernière instruction n'est pas très utile pour la 
vérification des données car les valeurs défilent trop vite 
pour que l'opérateur puisse les distinguer. 


Elle permet toutefois à l'opérateur de "patienter", car il 
voit défiler les valeurs d'adresse de MO jusqu'à MO+314. 


Nous verrons Un peu plus loin une véritable méthode de 
vérification. 
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HA 230 
Fermeture de la boucle en I. Une seule boucle étant en 
service, il n'est pas nécessaire de préciser le nom de la 
variable I -(M.Ref 55)-. 


*k%4 300 
Les données stockées de l'octet d'adresse 72451 à l'octet 
32767 (adresse maximale dans la configuration sans mémoire 
additionnelle), sont sauvegardées sur la cassette -(mM.Ref 
181)-, 


Bien entendu avant de lancer le programme il est 
nécessaire de mettre le lecteur de cassette en situation 
d'enregistrement, les deuxième et troisième touches 
enfoncées. 


Le nom du fichier de stockage a été choisi arbitrairement, 
tout en répondant aux règles fixées pour les noms de fichier 
-(M.Ref 157)-, mais nous avons pris un nom ayant une 
signification  mnémotechnique  (n'appelez pas tous vos 
fichiers données OATA ou DONNEES sous peine de ne plus être 
capable de les reconnaître ultérieurement). Comme nous 
n'avons pas indiqué de suffixe derrière un point, ce fichier 
sera reconnu à la relecture de la cassette par 
"OATAMINS.BIN", le suffixe BIN placé par l'interpréteur 
précisant que c'est un fichier binaire. 


On notera que la première adresse figurant après une 
virgule est l'adresse basse, la seconde l'adresse haute. Le 
dernier 0 figurant après la seconde virgule doit 
impérativement figurer. Il représente l'adresse d'appel du 
sous programme ainsi sauvegardé en langage machine. OÜans 
notre cas où les octets sauvegardés sont des données et non 
un programme, l'adresse d'exécution du sous programme n'a 
pas de sens mais il est nécessaire de faire figurer une 
ea) sous peine d'avoir un message d'erreur SN (Syntax 

rror). 


KXHRAREX TX 


Etudions maintenant une modification du programme précédent 
permettant de vérifier les données. Bien entendu une première 
méthode consiste à relire soigneusement l'ensemble des données, 
de préférence avec l'aide d'un second opérateur dictant les 
valeurs à vérifier. 
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Une telle méthode est très fastidieuse et encore nous 
n'avons à vérifier que 315 valeurs ! Par ailleurs rien n'empèche 
des erreurs de transcription entre le programme de conception et 
le listing des valeurs, surtout si, ne disposant pas 


d'imprimante, nous avons relevé les valeurs à l'écran. 


Or il est très facile de constater qu'un caractère est 
"tordu", beaucoup plus que de constater que l'on a tapé un 7 au 
lieu d'un 1. 


Nous allons donc afficher à l'écran chaque caractère dès 
que cinq valeurs consécutives ont été lues dans les DATA. Il 
suffit pour cela de bâtir le caractère par OEFGR$(0). Voyons le 
programme ainsi modifié entre 200 et 300. 


200 J=B:K=531 

21Q FOR I=0Q TO 314 

220 READ Z:POKE M@+1], 7 

2350 Z(J)=2 

Z4@ J=J+1:1F J=S THEN J=0:K=K+i: 
DEFGR$ (@)=0; @, Z(@),:2Z(1),Z(C2), 23); ZC4), @: 
LOCATE 15, 1Z:PRINT GR$ (D) :R$=INPUTS&C1) 


25Q NEXT 


*k4 200 
a/ J est un compteur que l'on fera varier de 0 à 4 pour 
compter les valeurs par paquets de 5. Il est ici initialisé 
à zéro. 
b/ K est un second compteur que l'on fera varier de 32 à 


dû, Il est ici initialisé à 31. 


vevere 21 0 
Ouverture de la boucle en I comme dans le programme 
précédent. 


Les 220 


Lecture de Z dans les OATA et copie dans l'octet d'adresse 
MO+I. 
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ka 


Lis 


Lors 


230 

La valeur Z est stockée provisoirement dans la variable 
Z(J). Cela permettra quand le compteur J aura atteint la 
valeur 4 de disposer des cinq valeurs caractéristiques du 
caractère. On notera que Z(J) n'a pas été dimensionnée par 
oIM -(M.Ref 46)- puisque J ne dépasse pas 10. 


240 
a/ J est incrémenté de 1. 


b/ si J après incrémentation atteint la valeur 5, il est 
remis à zéro. Dans ce cas on a recueilli les cinq valeurs du 
caractère suivant. 


On peut alors incrémenter le compteur K de 71 (c'est 
pourquoi la valeur initiale de K est 31 de façon à obtenir 
pour le premier caractère la valeur 32, qui est le numéro de 
code ASCII de l'espace). On définit ensuite le caractère 
utilisateur par DEFGR$(O) en encadrant les cinq valeurs Z(0) 
à Z(4) par deux zéros à gauche et un zéro à droite. Le 
caractère ainsi bâti se situera en conséquence sur les 
lignes 2 à 6 du carré @ x 8, la ligne 1 étant la ligne 
inférieure. 


Le caractère GR$(0) est enfin affiché en colonne 15, ligne 
12. 


Pour ne pas voir défiler les caractères trop rapidement 
sans pouvoir les controler, on dispose une instruction 
d'arret R$=-INPUT$(1) qui stoppe le déroulement du programme 
tant qu'une touche quelconque n'a pas été frappée. 


On ne place pas de message à l'opérateur, ni de test sur 
la touche comme dans de nombreux programmes précédents car 
il s'agit là d'un programme de mise au point et non d'un 
programme opérationnel destiné à être mis entre les mains 
d'opérateurs non avertis. 


250 
Fermeture de la boucle en I. 


Bien entendu on prendra garde à ne pas oublier de modifier 


l'instruction CLEAR à l'étiquette 10 pour réserver une place 
mémoire pour le caractère utilisateur GR$(0), par CLEAR ,32450,1. 
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Une fois sauvée notre liste de données, il nous reste à 
bâtir le programme d'écriture lui-même. 


Nous allons toutefois commencer par un programme destiné à 
vérifier qu'il est possible de récupérer les données sur la 
cassette. Il s'inspire du programme de test précédent. 


10 CLS:SCREEN 4,6, 6:CLEAR , 32450, 1:M0=32451 
20 FOR I=0 TO 314:POKE MB+I, D:NEXT 

30 LOADM "DATAMINS" 

200 J=D:K=31 

210 FOR I=0 TO 314 

220 Z=PEEK(MB+I) 

238 Z(J)=7 


24Q J=J+1:1F J=5 THEN J=0:K=K+1: 
DEFGR$ (D) =D, D: Z(@), Z C1): Z C2)» Z CS) Z C4), D: 
LOCATE 15; 12:PRINT GR$(D) :R$=INPUTS$ (1) 


250 NEXT 


Ce programme test n'a pas été optimisé. Il est évident que 
les instructions 220 et 230 pourraient être regroupées en une 
seule. Rappelons qu'il ne s'agit là que d'un programme de mise au 
point et de vérification. Il est plus commode de le bâtir en 
modifiant quelques instructions du programme précédent. Il est 
inutile de perdre son temps à optimiser un tel programme. 


: 


L'instruction 20 est destinée à effacer de la mémoire les 
données chargées par le précédent programme. 


11 faut prendre garde en effet à ce qu'une non relecture 
des données pourrait être masquée, si nous laissions en mémoire 
les données précédentes. IL ne faut pas oublier en effet que, 
Contrairement aux variables, les mémoires protégées par 
l'instruction CLEAR ne sont pas mises à zéro par la commande RUN. 

eule une instruction analogue à l'instruction 20 peut remettre 
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ces mémoires à zéro (ou encore la coupure de l'interrupteur 
général du T07, ce que nous n'avons pas fait pour pouvoir 
disposer du programme précédent et le modifier). 


L'instruction 30 charge le fichier "OATAMINS". 


On notera que l'instruction de chargement d'un fichier 
binaire n'est pas LOAO, comme pour un fichier BASIC, mais LOADM,. 
Un LOAO conduirait à une erreur FM (Bad File Mode, Mode d'accès 
au fichier incorrect). 


Les instructions suivantes sont directement inspirées du 
programme précédent. Il est inutile de les commenter. 


Pour bien vous convaincre que les mémoires de stockage des 
données ne sont pas effacées par la commande RUN, vous pouvez 
tenter l'expérience suivante dans la mesure où vous avez 
effectivement vérifié la relecture des données. 


Supprimez les instructions 20 et 30 d'effacement et de 
lecture du fichier et relancez le programme. Vous pourrez 
constater qu'il fonctionne correctement. (N'oubliez pas de 
supprimer 20 sous peine de déboires!) 


KXRKHEKK 


Nous en arrivons enfin au programme d'écriture proprement 
dit. 


Nous allons bâtir un programme principal simulant un 
programme opérationnel de dessin en demandant simplement à 
l'opérateur de préciser la chaîne de caractères qu'il veut 
placer sur l'écran ainsi que la colonne et la ligne où sera situé 
le premier caractère. 


Nous bâtirons ensuite un sous-programme d'écriture de 
cette chaîne en minicaractères. C'est bien évidemment le 


sous-programme qui Sera sauvegardé pour être ajouté à de vrais 
programmes de dessin. 
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10 CLS:SCREEN 4,6,6 
ZA CLEAR , 32450, 1 :MD=32451 :MA=MQ-16Q 


30 LORDM "DATAMINS#" 


500 LOCATE @, @:PRINT "C =": 
LOCATE 20, @: PRINT "L =" 


510 LOCATE @:2:PRINT "Z =": 
LOCATE 20, 2:PRINT "Z$ =" 


520 LOCATE 3, @:INPUT CC:LOCATE 25, @: INPUT LL 
550 LOCATE 53, Z:INPUT ZLELOCATE 23,2: INPUT Z$ 
540 CLS:GOSUB 60000 


990 R$=INPUT#C1):CLS:IF R$="F" THEN END 
ELSE GOTO 500 


60008 ATTRE @; B:L=LENCZ#): 
IF L MOD 2 = 1 THEN L=L+i:2Z$=2$6+" " 


60010 FOR ZZ=Q TO 7:U(ZZ)=B:NEXT ZZ 
60020 FOR Z=i TO L STEP 2? 


60030 Mi=MA+5*+ASCCMIDSCZ$, 7, 13): 
MZ=MA+S*ASCCMIDSCZS, Z+1, 1)) 


60040 FOR ZZ=0 TO 4: 
UCZZ+ZL)=1E*PEEK(M1+2Z)+PEEK(MZ+2Z2): 
NEXT 22 


60050 DEFGR$(O)=U(B),UC1),.UC2), UC2), 
U(4), UCS), UC), UC7) 


60068 LOCATE CC, LLEPRINT GR#(@)::CC=CC+1 
6007@ NEXT Z 


EGQ0COG RETURN 
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10 
a/ Efface l'écran 


b/ Fixe les couleurs générales écran 


20 

a/ Réservation des mémoires dont les adresses sont 
supérieures à 32450, pour y loger les données caractère et 
réservation d'une place pour un caractère utilisateur. OÜans 
le cas où l'on dispose d'une mémoire additionnelle, il faut 
déclarer une adresse de protection égale à 48830. 


b/ MO est la première mémoire de stockage des données. 


c/ Nous verrons qu'il est utile de disposer du paramètre 
MA pour le calcul, dans le sous-programme, des adresses de 
stockage des données correspondant à un caractère. 


30 
Chargement en mémoire centrale du fichier binaire 
contenant les données caractère. 


Les deux instructions 20 et 30 doivent toujours figurer 
le programme principal. 


500 - 530 

Ces instructions permettent d'entrer la chaîne de 
caractères Z$, le numéro de colonne CC, le numéro de ligne 
LL où sera écrit le premier caractère. 


Nous disposons en outre d'un dernier paramètre de 
"réglage" de position de la chaîne. C'est sa hauteur ZL 
dans les huit lignes écran attribuées au caractère (qui n'en 
occupe que cinq), hauteur réglée en disposant trois zéros de 
part et d'autre des cinq valeurs caractéristiques dans 
l'instruction OEFGR$(0). 


540 
Efface l'écran et branche au sous-programme 60000 
d'écriture des minicaractères. 


Nous avons placé le sous-programme en 60000 de façon à 
faciliter sa fusion avec un programme principal. 


XA4X 


kA% 


550 
a/ Arrête le programme jusqu'à ce qu'une touche ait été 
frappée. 


Là encore nous ne diposons pas de message à l'écran pour 
prévenir l'opérateur puisqu'il s'agit seulement d'un 
programme de mise au point et d'essai du sous-programme de 
miniécriture. 


b/ Efface l'écran 


c/ Si la touche frappée est la touche "F" le programme est 
définitivement arrêtä (END), sinon (ELSE) le programme est 
branché en 500 pour un nouvel essai, 


60000 
a/ Impose la taille normale des caractères. 


Cette instruction est une instruction de précaution au cas 
où le programme principal aurait effectué le branchement au 
sous-programme sans remettre les caractères à la taille 
normale. I1 est inutile en effet de tracer des 
minicaractères en taille double ! 


b/ L est le nombre de caractères de la chaîne Z$ à 
écrire. 


c/ Si Lest impair, le reste de la division de L par deux 
est égal à 1 (l'opération Modulo N, effectuée par 
l'instruction MOD N -(M.Ref 19)-, donne le reste de la 
division par N). Dans ce cas nous ajoutons un caractère 
"espace" en fin de chaîne de façon à travailler sur une 
chaîne contenant un nombre pair de caractères et 
incrémentons L de un. 

Les caractères sont en effet tracés par groupes de deux. 
Il ne faut donc pas laisser un "célibataire" en bout de 
chaîne. 


60010 

La variable U(ZZ) est destinée à recevoir les huit valeurs 
calculées, entrant dans la definition de chacun des 
caractères utilisateur regroupant deux minicaractères. 


Seules cinq valeurs changent d'un caractère à l'autre, les 
trois autres étant des zéros, la "position" de ces zéros 
dépendant du paramètre ZL, fixant la "hauteur" de la chaîne 
dans la ligne LL, 
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Il est donc nécessaire avant d'écrire la chaîne de 
remettre les huit valeurs des U(ZZ) à zéro, de façon à ne 
modifier, d'un caractère à l'autre de la chaîne que les 
U(ZZ) non nuls. 


60020 

Ouverture d'une boucle en Z destinée à analyser les 
caractères de Z$ deux par deux (STEP 2). On voit ici la 
nécessité de disposer d'une chaîne de longueur paire. 


60030 
MI0$(2$,2,1) est le caractère de rang Z de Z$ -(M.Ref 
130)-. 


Oe même MID$(Z$,2+1,1) est le caractère de rang Z+1 de 
Z$. 


La fonction ASC placée devant ces deux expressions fournit 
donc les numéros de code ASCII des caractères de rangs Z et 
Z+1, 


Les valeurs caractéristiques des minicaractères sont 
stockées par groupes de cinq, le premier minicaractère étant 
l'espace, de numéro de code 32, L'adresse de la mémoire de 
stockage de la première valeur du minicaractère de numéro de 
code N est donc MO + 5%* (N - 32) soit MO -160 + 5 * N. 
Voilà la raison d'utiliser la variable MA = MO - 160. 


Ainsi M1 et M2 sont les adresses de stockage des premières 
valeurs caractéristiques des deux caractère de rang Z et Z+#1 
de la chaîne Z$. 


60040 

a/ Ouverture d'une boucle en ZZ destinée à calculer les 
cinq valeurs non nulles du caractère utilisateur regroupant 
les deux minicaractères de rang Z et Z+#1. 


b/ ZZ variant de O0 à 4, les U non nuls ont pour indices 
ZZ+2L. 


Ils sont calculés par addition de la valeur relevée en 
M2+2ZZ pour le second minicaractère (situé à droite du carré 
8 x 8) et de la valeur relevée en M1+ZZ, pour le premier 
minicaractère, préalablement multipliée par 16 (pour le 
placer à gauche). 


c/ Ferme la boucle en ZZ 


*#x 60050 
Oéfinition du caractère utilisateur GR$(0) -(M.Ref 190)-. 


*** 60060 
a/ Place Le curseur en colonne CC, ligne LL. 


b/ Affiche le caractère utilisateur GR$(0), précédemment 
défini. 


Le  point-virgule n'est utile que dans le cas où 
l'affichage de la chaîne se ferait sur la dernière ligne 
écran; il évite une remontée intempestive d'écran à 
l'affichage de chaque caractère sur cette dernière ligne. 


c/ Incrémente CC de un pour déplacer le curseur vers la 
droite pour le caractère suivant. 


tx 60070 
Ferme la boucle en Z, 


##*x  600BO 
Instruction de clôture du sous-programme -(M.Ref 57)-. 


11 pourrait être utile de compléter le sous-programme, en 
y adjoignant des tests sur la validité des données CC, LL, ZL et 


Il faut que ZL soit compris entre 0 et 3 (bornes incluses), 
que CC soit compris entre O0 et 39, LL entre O et 24. Enfin on 
peut vérifier que CC + L/2, L étant la longueur de la chaîne est 
bien inférieur à 40, pour éviter que la chaîne ne soit coupée en 
deux par un saut à la ligne intempestif. Chacun complètera le 
Sous-programme si nécessaire, en fonction du programme principal 
d'utilisation. 
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CONVERSION PRATIQUE HEXADECIMAL - OECIMAL. 


A/ Conversion de l'Hexadécimal en Décimal. 


Connaissant une valeur héxadécimale, B32E par exemple, 
taper directement au clavier : 


? &HB32E 


La réponse est donnée en décimal, soit ici 45870. 


B/ Conversion du Üécimal en Héxadécimal. 


Connaissant la valeur décimale, 45311 par exemple, taper 
directement au clavier : 


? HEX$(45311) 


La réponse est donnée en héxadécimal, soit ici BOFF. 
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Calculette 


Nous allons simuler le fonctionnement d'une calculette de 
poche, munie d'une mémoire et capable d'effectuer les quatre 
opérations. 


Transformer le T07 en une calculette de poche capable des 
quatre opérations seulement n'est sûrement pas "rentable", mais 
les problèmes de programmation posés par cette réalisation sont 
suffisament nombreux pour que l'exercice soit fructueux. 


Nous représenterons la calculette sous forme d'un clavier 
rectangulaire sur lequel un certain nombre de "touches" seront 
dessinées, chaque touche étant identifiée par un symbole 
précisant sa fonction. La commande de la calculette se fera bien 
entendu en désignant les touches à l'aide du crayon optique. 


11 nous faut tout d'abord concevoir le clavier. 


Nous devons tracer dix touches pour les dix chiffres plus 
une onzième pour le point décimal (ou la virgule si vous préférez 
la notation française). Il y a quatre touches d'opération plus 
une cinquième pour le signe " = ", permettant d'afficher le 
résultat de l'opération effectuée. Il faut enfin prévoir deux 
touches pour la mémoire (mise en mémoire et rappel du contenu de 
la mémoire), une touche d'annulation de la valeur affichée et une 
touche de changement de signe. 


Nous arrivons ainsi à vingt touches que bien naturellement 
nous disposerons en quatre rangées de cinq. 
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IL nous faut également prévoir une fenêtre d'affichage des 
nombres et, comble de raffinement, une touche “Marche-Arret", 
bien utile pour retrouver le T07 pour un usage plus à la mesure 
de ses capacités. 


Enfin à gauche de la fenêtre d'affichage des résultats, 
située elle même sous le tableau des vingt touches, nous 
placerons un marqueur identifiant la dernière touche de fonction 
désignée par le crayon optique. 


Nous placerons au centre de chaque touche un symbole en 
double taille. Ainsi chaque touche sera un rectangle de 6 
caractères de large (soit 6 x 8 = 48 points) et 4 caractères de 
haut (soit 4 x B = 32 points) de façon à pouvoir y centrer 
harmonieusement un symbole double taille. 


Les symboles pour les touches chiffres, le point décimal, 
le signe égal et les quatre opérations sont évidents. Toutefois 
nous utiliserons le x minuscule pour la multiplication, car ce 
symbole est plus utilisé sur les calculettes que le signe * 
caractérisant la multiplication en BASIC. 


Pour la touche de mise en mémoire, nous choisirons un M et 
pour le rappel de la valeur en mémoire, un R. 


Enfin nous créerons deux caractères utilisateur l'un pour 
le changement de signe (un caractère rassemblant les trois 
symboles +/-) et l'autre pour la touche d'effacement (un 
caractère rassemblant les deux lettres EF). Nous aurons ainsi des 
symboles de même taille que les autres. 


Dans un souçi d'esthétique, mais également de clarté de 
présentation, nous différencierons les touches par des couleurs 
caractérisant les fonctions, en prenant garde toutefois à 
n'utiliser, ni le Rouge, ni le Noir, pour les parties de la 
calculette qui doivent être désignées par le crayon optique. 


Les touches chiffres seront en Blanc, le signe = et le 
point décimal en Jaune, les quatre opérations en Bleu, les deux 
touches mémoire en Vert, la touche effacement en Cyan (comme le 
fond d'écran, mais nous placerons cette touche au milieu du 
tableau), enfin la touche changement de signe en Magenta. 
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Nous placerons nos touches avec la disposition suivante : 


7 8 9 m + 
4 5 6 R _- 
1 2 3 EF x 
: 0 =  +/-. / 


I1 est bien évident que de nombreuses autres dispositions 
peuvent être prises. Nous n'avons pas "déposé" le modèle! 


11 ne faut toutefois pas croire que nous sommes parvenus à 
ce choix du premier coup après quelques réflexions sur le papier. 
De nombreux essais ont été faits pour chercher une disposition 
des symboles et des couleurs à la fois pratique et plaisante à 
l'œil. Un excellent exercice consisterait à chercher une autre 
disposition peut être plus heureuse, mais rappelons que ce n'est 
qu'une fois le programme entièrement terminé et testé que l'on 
peut juger la validité du choix retenu. 


Ces principes étant retenus, le programme de tracé est le 
suivant : 


10 CLEAR ,, Z:DIM OPER$S(7),M$07): DEFDBL A-C,;, M 


20 EF$=" "s 
M$="L4BO4REOSSO" : S0S$=M$+"L12P"+M$ 


30 DATA @, 1,27, 5,4; Do 69 79 15 —Zs — 31 1 59 Br — 7: —8: 
= DO, +, RE -, MI, x, FA; /, SO, M, LA, R; SI 


40 READ NOIRX; ROUGEX, VERTY%Y, JAUNEX*; 
ELEUX, MAGENTAX, CYANX; ELANC%; 
NOIRFX, ROUGEF%, VERTF%: JAUNEF%*; 
ELEUF%X, MAGENTAF%, CYANF%, BLANCF% 


50 FOR 1=1 TO 7:READ OPERS$C1), MS: 
M$CI1)="L4S80Z"+MS:NEXT 


60 DEFGR$(O)=0, 119, 68, 68, 102, 66, 68, 116: 
DEFGR$(1)=1, 6B) 28: 721 165 323 711 128 
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CLS:SCREEN NOIRX; CYANX, CYAN%X 
EOXF (40, @)-(273, 127), BLANCF% 
EOXF (409, 36-087, 127); JAUNEF* 
BOXFC136; 36)-0183, 127); JAUNEF*X 
BOXF(C184, 0)-(231, 63), VERTFX 
BOXF(184,64)-€231;, 95); CYANF*X 
BOXF (184; 36)-C231;, 127): MAGENTAFY%X 
EOXFCZ3Z, @)-(273, 127), BLEUF* 
FOR I=0 TO 5:X=-48*xI+40: 
LINECX, @)-CX, 127) =NEXT 

FOR 1=0 TO 4:Y=32#1: 
LINEC4@, Y)-(280, Y) :NEXT 
ATTRB 1, 1:COLOR ; BLANCX%X 
LOCATE 7,Z, G: PRINT "7" 
LOCATE 13, 2:PRINT "S" 

LOCATE 19, Z: PRINT "3" 

LOCATE 7,B6:PRINT ‘"4" 

LOCATE 13, 6: PRINT "5" 

LOCATE 13,6: PRINT "6" 

LOCATE 7, 1W: PRINT "1" 

LOCATE 13, 180: PRINT "2" 
LOCATE 19, 18: PRINT "3" 


LOCATE 13, 14: PRINT “@" 


COLOR ; JAUNEX 
LOCATE 7, 14 PRINT "." 


LOCATE 19, 14:PRINT “=" 


COLOR ;, VERTX 
LOCATE 25, 2: PRINT "M" 


LOCATE 25, 6: PRINT "R" 


COLOR , CYANYX 


LOCATE 25, 10: PRINT GR#(@) 


COLOR ; MAGENTAX 


LOCATE 25, 14: PRINT GR#&(1) 


COLOR BLANCX: BLEUX 

LOCATE 31,2:PRINT "+" 
LOCATE 31,6:PRINT "-" 
LOCATE 31, 10:PRINT "x" 


LOCATE 31, 14: PRINT "/" 


BOXF (281; 0)-(319, 31), JAUNEF*: 

ATTRE @, 1:LOCATE 36, Z:COLOR ROUGEX%, JAUNEX: 
PRINT "M/A":BOX(ZE0, D) -(313, 31), NOIRX 
INPUTPEN X,Y:IF X(@ GOTO 900 

FOR J=0 TO 10:1F PTRIG GOTO 310 ELSE NEXT J 


IF X2273 AND Y)@ AND Y(3Z GOTO 320 
ELSE GOTO 300 


PLAY “L9203D0":BOXF (64,144) -1256 176), ROUGEF%X 
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10 
a/ Réserve deux places mémoire pour deux caractères 
utilisateur -(M.Ref 32)-. 


b/ Réserve 8 places mémoire pour les tableaux de variables 
chaînes OPER$ et M$ -(M.Ref 46)-. 


c/ Les variables dont le nom commence par A,B,Cet M 
seront des variables double précision sauf si un symbole #, 
! ou $, ajouté derrière leur nom, change leur type (entier, 
simple précision ou chaîne de caractères) -(M.Ref 40)-. 


20 

a/ La chaîne de caractères EF$, composée de 22 espaces 
est destinée à effacer les chiffres dans la fenêtre 
d'affichage des résultats. 


Cet effacement est nécessaire pour les cas où la chaîne 
de caractères résultat est plus courte que la chaîne 
précédemment affichée. 


b/ La chaîne M$ est composée de deux notes RE en octave à 
et SO en octave 3, La durée des notes est 48 (ce qui 
correspond à une blanche). 


c/ La chaîne de caractères S05$ résulte de la 
concaténation de deux chaînes M$, séparées par la chaîne 
"L12P" représentant un pause de durée 12 (soit un soupir qui 
a la durée d'une croche). 505$ commandée par l'instruction 
PLAY -(M.Ref 201)- produira au haut parleur un signal 
"PIN-PON PIN-PON" caractéristique de l'alarme des pompiers. 
11 sera utilisé pour signaler une erreur. 


30 - 50 
I1 est commode au moment de la mise au point d'une figure 
en couleurs de disposer de variables portant les noms en 
clair des couleurs et dont les valeurs sont celles du code 
de couleurs. 


Ainsi la variable NDIR£ (variable entière) a la valeur 1 
(pour Noir type caractère), la variable BLANCF$, la valeur 
-8 (pour Blanc type Fond). 


La lecture des instructions définissant les couleurs et 
leur modifications en sont simplifiées. Bien entendu un 
opérateur confirmé finit par connaître par coeur le code de 
couleurs et peut se passer d'une telle précaution. 


A4 


TCATe 


Les sept chaînes OPERS(I) et les sept notes de DO à SI 
sont associées aux sept touches de fonction, =, +, -, x, /, 
M et R. Cela nous sera utile pour afficher le marqueur 
correspondant à la dernière fonction commandée et pour 
émettre un signal sonore d'identification de la fonction 
utilisée. 


60 
Définition des deux caractères utilisateur. GR$(0) est le 
symbole EF et GR$(1) le symbole +/-. 


100 
a/ Efface l'écran 


b/ Fixe la couleur des caractères au Noir, les couleurs du 
fond et de l'entourage au Cyan. 


110 - 170 

Ces instructions définissent les différentes plages 
rectangulaires avec les couleurs que nous avons choisies 
pour différencier les touches. 


On notera que ces plages sont toutes en couleur fond (voir 
Annexe I), ceci afin de pouvoir écrire dessus en couleur 
caractère. 


Enfin les touches à gauche et au milieu de la dernière 
rangée (pour le point décimal et le signe =) sont d'abord 
tracées en Blanc par l'instruction 110 puis en Jaune par les 
instructions 120 et 130. Il faut bien entendu prendre garde 
à ne pas intervertir l'ordre de ces instructions. 


200 

Tracé de six verticales, entre les ordonnées 0 et 127, 
depuis l'abscisse 40, avec un espacement horizontal de 48 
points. 


La couleur, non précisée dans l'instruction LINE -(M.Ref 
187)- est, par défaut, la couleur caractère Noir définie en 
100 par l'instruction SCREEN 


210 

Tracé de cinq horizontales, entre les abscisses 40 et 2B0, 
depuis l'ordonnée 0, avec un espacement vertical de 32 
points. 


La couleur est encore la couleur caractère Noir. 
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300 
a/ Impose des caractères de taille double -(M.Ref 26)-. 


b/ Fixe la couleur fond des caractères au Blanc. 


IL est indispensable de changer la couleur de fond, de 
Cyan en Blanc, pour pouvoir afficher les symboles chiffres 
sur les touches blanches. On notera que le premier paramètre 
de l'instruction COLOR -(M.Ref 189)- n'est pas précisé. 
C'est donc la couleur Noir, imposée par l'instruction SCREEN 
en 100, qui est retenue par défaut. 


305 - 350 
Affiche les dix symboles 0 à 9, en taille double, en Noir 
sur fond Blanc, sur les dix touches chiffre. 


400 - 840 
Affichage des différents symboles avec les couleurs fond 
appropriées. 


B50 
Tracé de la touche "Marche - Arrêt" sur la droite de la 
calculette. 


On notera que la plage Jaune fond définie par 
l'instruction BOXF a pour abscisse à gauche 2B1 et non 280, 
ce qui évite de voir fugitivement disparaître la verticale 
Noir de droite de la calculette (abscisse 2B0) entre les 
ordonnées O et 31 avant que l'instruction 80X ne la 
rétablisse. Un essai avec BOXF(2B0,0)-(319,31),JAUNEFS# 
montrera l'effet produit. 


La touche a une largeur de 5 caractères (soit 40 points). 
I1 est donc possible d'y centrer les trois caractères M/A en 
ua double en hauteur (instruction ATTRB 0,1 -(M.Ref 
26)-). 


900 
a/ Relève les coordonnées X et Y du point visé par le 


crayon optique, dès que l'interrupteur du crayon a été fermé 
-(M.Ref 63)-. 


b/ Si les valeurs de X et de Y sont égales à -1, donc 
négatives, le crayon a été appuyé en dehors de la zone de 
travail écran. La deuxième instruction de 900 branche alors 
à la première instruction pour une nouvelle lecture. 


#4 


AA 


910 
Nous avons déjà rencontré ce type d'instruction au 
chapitre V -(M.Bas 75)-. 


La variable BASIC PTRIG prend la valeur "Vrai" (-1) si le 
contact du crayon optique est fermé et la valeur "Faux" (0) 
dans le cas contraire. 


Si le crayon optique est appuyé sur l'écran pendant le 
déroulement de la boucle en J, celle-ci repart à zéro 
(branchement en 910 si PTRIG est "Vrai"). Cela impose un 
certain délai avant que la lecture par le crayon optique ne 
soit à nouveau effactive et évite des lectures successives 
dans le cas où l'opérateur fait "rebondir" le crayon sur 
l'écran. 


Or nous allons voir que la désignation de la touche 
“Marche - Arrêt" met en route la calculette mais que la 
désignation ultérieure de la même touche conduit à la 
clôture du programme. Il serait fâcheux qu'un rebond 
maladroit du crayon conduise à la mise en service et à 
l'arrêt immédiat du programme ! 


Les instructions sous l'étiquette 910 n'ont pour rôle que 
d'éviter cet incident. 


920 

Si le point désigné par le crayon optique est à 
l'extérieur de la touche "Marche - Arrêt" le programme est 
branché en S00 pour un nouveau pointé sinon (ELSE) le 
programme est branché en 930. 


930 
a/ Un D0 à l'octave 3, de durée 92 (ronde) est émis par le 
haut-parleur, signalant la mise en service de la calculette. 


b/ La fenêtre d'affichage des résultats est tracée en 
Rouge Fond au dessous de la calculette. 


On utilise le Rouge Fond pour pouvoir yÿ inscrire le 
résultat en couleur caractère. 


CNE CUS DE ee 1 
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Le dessin de la calculette est ainsi terminé. Il est temps 
d'essayer cette partie du programme pour détecter les erreurs de 
syntaxe puis juger l'esthétique de la présentation. 

Rien n'empêche, à ce stade de la mise au point, de 
modifier les couleurs ou la taille et la position des touches. Üe 
telles modifications, une fois la totalité du programme écrit, 
seraient beaucoup plus difficiles à faire car elles ont des 
conséquences sur les instructions suivantes. 


Voyons maintenant le programme de calcul proprement dit. 


1000 COLOR NOIRX;, ROUGEX:A=0:B=Q:OPERX=1:0OPERS=" " 

1010 Z$="":PTX=0 

1020 GOSUB 5000 

1030 ON i-CU=1 AND V=4)-Z2#CU=5)-3*«(U=3 AND V=4) 
—4*(U=4) GOTO 1100, 1200, 1300, 1400, 3000 

1100 X=-UxkCV=S) -CU+S)#CV=2) -CU+E) #CV=1) 3 
X$=CHR$(48+X) 

1110 IF LENCZH)=16+PTX THEN LOCATE Z, ZO:ATTRE 1,1: 
PRINT "E":PLAY S0OS$:LOCATE Z, ZO: PRINT OPER$: 
ATTRB 0, 1:GO0T0 1070 ELSE Z+=2$=X$ 

1120 IF LENCZ#)=1 THEN LOCATE 9, 20: PRINT EF$ 

1130 LOCATE 31-LEN(Z$), ZO: PRINT Z$ 

1140 GOTO 1070 

1200 IF PTX=Q THEN X$=".":PTX=1:GOTO 1110 
ELSE ATTRB 1, 1:LOCATE 2%, ZOS PRINT "E'": 


PLAY SOS$:LOCATE 2, ZO: PRINT OPERS: 
ATTRE @, 1:GO0OT0 1070 


1300 IF OPERX=1 THEN OPERX=V+1:A=VAL(Z#): 
ATTRE 1, 1:LOCATE 2, ZOW: PRINT OPER$ (V+1): 
OPER$=OPERS (V+1): PLAY M$CV+1) :ATTRE 0, 1 


1310 GOTO 1010 
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1400 B=A:A=VAL(ZS) :ATTRB 1, 1:LOCATE 2, 20: 
PRINT "=":OPERS$="=":ATTRE ©, 1: 
ON OPERY GOTO 1410, 2000, 2100, 2200, 2300 


1410 PLAY SOS$:G0OTO 10:20 


2000 A=A+B: GOTO 7500 

2100 A=B-A:GO0TO0 2500 

2208 A=B*xA:GOTO 2500 

2300 IF A=0 THEN ATTRE 1, 1:LOCATE 2, 20: 


PRINT "E":PLAY S0OS$:LOCATE Z, ZO: PRINT “/": 
ATTRE @;, 1:A=B:GOTO 2500 ELSE A=B/A 


2500 Z$=STR$SCA) = PLAY M$c1) 


2510 LOCATE 9, 20: PRINT EF$: 
LOCATE S1-LENCZ$) : PRINT Z$ 


2520 OPERX=1:GOSUB S000:IF U(4 THEN PLAY 505$: 
GOTO 2520 ELSE GOTO 1050 


3000 ON V GOTO 3100. 3200, 5:00, :400 


3100 M=VALEZHS) :A=MSATTRE 1, 1:LOCATE Z, 20: 
PRINT “M':PLAY M$c6) :ATTRE 0, 1:G0T0 2520 


3200 Z$=STR$& (M) :LOCATE 3, ZO: PRINT EF$#: 
LOCATE S1-LEN(Z#), 20: PRINT ZH:ATTRE 1,1: 
LOCATE 2, ZO: PRINT "R':PLAY M$(C7)3: 
ATTRE 6, 1:GO0T0 1020 


3300 A=0:LOCATE 9, 20: PRINT EF$:ATTRE 1,1: 
LOCATE 2, ZO: PRINT GR$(0) :ATTRE @, 1: GOTO 1010 


3400 ATTRE 1; 1:LOCATE 2, 20: PRINT GR#&(1) :ATTRE D, 1: 


=-VAL(CZ#S):2$-STR$SCC) :LOCATE 31-LEN(CZS#), 20: 
PRINT Z$:60T0 1070 
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5000 INPUTPEN X,Y:IF X(@ GOTO 5000 


5010 FOR I=1 TO 10:IF PTRIG GOTO 5010 
ELSE NEXT:BEEP 


5020 IF X)279 AND Y(32 THEN PLAY "L9BOSSI": 
ATTRE 0, 0: COLOR 4, B:CLS: END 


5030 IF X(48 OR X)279 OR Y)127 THEN PLAY S05$: 
GOTO 5000 


5040 U=1-CX)87)-CX)135)-CX)183)-CX) 231): 
V=1-CY) 31)-CY)B3)—-CY) 95) 


5050 RETURN 


1000 

a/ Les caractères qui seront maintenant affichés le seront 
sur fond Rouge (affichage du résulat des opérations dans la 
fenêtre et affichage du marqueur de type d'opération à 
gauche de la fenêtre). La couleur caractère est donc fixée 
au Noir sur fond Rouge 


b/ et c/ Les variables À et B (double précision imposée 
par l'instruction DEFO8L sous l'étiquette 10) sont destinées 
à contenir les deux opérandes. 


d/ La variable OPER$ caractérise l'opération effectuée. 
Elle est initialisée à 1 (touche = }). Nous en verrons 
l'usage plus loin. 


e/ La variable OPER$ contient le symbole de la dernière 
opération commandée. 


Elle est utile lorsqu'un message d'erreur "E" ayant été 
affiché à la place du marqueur d'opération on réaffiche 
l'opération en cours, après avoir effacé le message 
d'erreur. Elle est initialisée sous forme d'un espace, 
puisqu'aucune opération n'a encore été commandée. 


1010 

a/ La variable Z$ est destinée à recueillir la chaîne de 
chiffres "frappés! à l'écran à l'aide du crayon optique. 
Elle est initialisée à "zéro" (chaîne de longueur nulle). 


Lis 


LÉ 


RÉ 


b/ PT$ est un "indicateur" qui est mis égal à 1 lorsque la 
touche point décimal a été désignée. Nous en verrons 


l'utilité plus loin. Il est initialisé à zéro puisque la 
touche point décimal n'a pas encore été désignée. 


1020 
Branchement au sous-programme 5000 de lecture de la touche 
désignée par le crayon optique. 


Nous allons immédiatement étudier ce sous-programme, car 
son contenu est indispensable à la compréhension de la suite 
du programme. 


5000 - 5010 


Relève les coordonnées X et Y du point visé par le crayon 
optique, dès que l'interrupteur du crayon a été fermé 
-(M.Ref 63)- (voir les instructions 900 - 910 identiques). 


Lorsque les coordonnées X et Y sont acceptées un BIP se 
fait entendre (instruction BEEP -(M.Ref 30)-) 


5020 

Si la touche "Marche - Arrêt" a été désignée (X est alors 
supérieur à 279 ET YŸ est inférieur à 32) une note SI à 
l'octave 5 de durée 92 (ronde) est émise, la taille des 
caractères est fixée à la taille normale, la couleur 
caractère est fixée au Bleu sur fond Cyan, l'écran est 
effacé et le programme stoppé par END (Clôture). 


5030 

Si le point désigné est en dehors de la calculette, le 
signal d'alarme S0S$ est émis et le programme est branché 
sur l'étiquette 5000 pour un nouveau pointé. 


5040 
Le pointé étant dans une zone significative, il reste 
maintenant à identifier la touche. 


Le nombre de cases possibles étant égal à 20 il est 
impossible d'utiliser l'instruction ONPEN GOTO -(M.Ref 82)- 
qui n'accepte que huit cases maximum. 


a/ U prend les valeurs 1, 2, 3, 4 ou 5 en fonction de X. 


Il indique le numéro de la case dans la rangée, 1 pour la 
case de gauche ,5 pour la case de droite. 
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RAT 
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Supposons en effet que X vaille 123. C'est la case 
caractère en colonne 15 qui a été désignée, donc la deux ième 
fcase" calculette (rappelons que les valeurs de X renvoyées 
par le crayon optique sont des multiples de huit augmentés 
de trois -(M.Bas 77)-. La variable logique (X supérieur à 
B7) est égale à -1 (Vrai) et les trois autres sont nulles. 
Ainsi U est égal à 2 ce qui est bien le numéro de la case 
calculette. 


On aurait pu tout aussi bien calculer U par la formule : 
U=1+INT((X-40)/48) 


puisque les cases calculette ont 48 points de large et que 
l'abscisse du bord gauche est 40. 


Nous avons toutefois indiqué la formule utilisant les 
variables logiques car elle est générale et fonctionne même 
si les "touches" ont des tailles inégales, ce qui n'est pas 
le cas pour la seconde formule. 


b/ V d'une façon analogue prend les valeurs 1, 2, 3 ou 4 
en fonction de Y. Il indique le numéro de la rangée. 


Là encore on aurait pu écrire : 
V=1+INT(Y/35) 


puisque les "touches" ont 36 points de haut,le haut de la 
touche 1 ayant l'ordonnée 0. 


5050 
Instruction de fermeture du sous-programme -(M.Ref 57)-. 


Revenons maintenant au programme principal, en retenant 
que le sous-programme fournit essentiellement les deux 
valeurs U et V, numéro de la case dans la rangée et numéro 
de rangée. 


1030 


Cette instruction teste les valeurs de U et V et branche 
le programme en conséquence. 


On reconnait le mode de branchement par l'instruction 
ON. . .GOTO -(M.Ref 80)-, utilisant une variable d'adressage 
calculée par variables logiques -(M.Bas 83)-. 


' 
É4 
c 
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1 et V = 4 (touche point décimal) 
branchement en 1200. 


- Si U=5 (colonne des touches d'opérations) 
branchement en 1300 


! 
LA 
co 
u 


3 et V = 4 (signe égal) 
branchement en 1400 


- Si U=4 (colonne mémoire, effacement, changement de 
signe) 
branchement en 3000 


- Si aucune des conditions précédentes n'est réalisée 
(touche chiffre), la variable de branchement vaut 1 et le 
programme est branché sur 1100. 


1100 
Le branchement en 1100 est effectué lorsqu'une touche 
chiffre a été désignée par le crayon optique. 


a/ Le chiffre désigné vaut U (c'est à dire le numéro de la 
case dans la rangée) si la case se trouve dans la rangée 3 
où les chiffres marqués sont 1, 2 , 3. 


Il vaut U + 3, si la case est dans la seconde rangée où 
les chiffres marqués sont 4, 5, 6. 


Il vaut U + 6 si la case est dans la rangée supérieure où 
les chiffres marqués sont 7, 8, 9. 


Enfin le chiffre désigné est 0 si la rangée est la 
quatrième (c'est à dire aucune des trois premières). 


La variable X calculée à partir des variables logiques 
(V=3), (V=2), (V=1) -(M.Ref 20)- qui prennent la valeur -1 
si la condition entre parenthèses est "Vrai" et la valeur 0 
dans le cas contraire, donne donc la valeur du chiffre 
pointé. 


b/ X$ est le caractère représentant le chiffre X. 
En effet le numéro de code ASCII de D est 48 donc le 
numéro de code ASCII du nombre X est 48 + X. La fonction 


CHR$(N) -(M.Ref 113)- donne le caractère de numéro de code 
ASCII N. 
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Lies 


KAX 
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1110 
Le nombre de chiffres significatifs d'une variable double 
précision ne peut dépasser 16. 


La variable chaîne de caractères Z$ qui contient la 
succession des chiffres designés (voir la dernière 
instruction sous cette étiquette) ne doit donc pas avoir une 
longueur supérieure à 16, si la chaîne ne contient pas de 
point décimal et à 17, si la chaîne contient le point 
décimal. La longeur LEN(Z$) doit donc être au plus égale à 
16 + PTÉ$ (rappelons que PT vaut D si le point décimal n'a 
pas és désigné et 1 dans le cas contraire, voir l'étiquette 
1200). 


En conséquence si la longueur de Z$ est déjà égale à 16 + 
PTX, on affiche en taille double le caractère E (message 
d'erreur) en colonne 2, ligne 20 (place du marqueur 
d'opération) et le signal d'erreur 505$ est émis. 


Le signal d'erreur une fois émis, le symbole OPERS, 
caractérisant l'opération en cours est à nouveau affiché à 
la place du marqueur d'opération, et le programme est 
branché en 1020 pour un nouveau pointé, les caractères ayant 
été ramenés, par ATTRB 0,1, à la taille double en hauteur 
utilisée pour l'impression des chiffres dans la fenêtre 
d'affichage 


Si par contre la longueur de Z$ est acceptable (ELSE) la 
chaîne de caractères Z$ est concaténée à droite avec le 
caractère X$, pour "ajouter" le chiffre suivant au nombre 
affiché. 


1120 

Si la longueur de la chaîne de caractères Z$ est égale à 
1, c'est qu'un nouveau nombre est affiché par l'opérateur. 
I1 est donc nécessaire d'effacer le précédent. Dans ces 
conditions le curseur est placé en ligne 20 (ligne 
d'affichage des résultats), colonne 9 et la chaîne de 
caractères EF$ composée de 22 espaces, efface le nombre 
précédemment affiché. 


11 faut noter que la chaîne la plus longue affichable est 
constituée de 16 digits plus le point décimal plus 
l'exposant de longueur 4 (la lettre D, le signe de 
l'exposant et deux digits), soit 21 caractères. La chaîne 
EF$ efface donc sûrement la chaîne la plus longue. 


Nous nous trouvons ici en présence d'une instruction qui n'est 
en général pas prévue par le programmeur au moment de la 
conception. 


Elle ne s'impose qu'une fois quelques essais de fonctionnement 
effectués, lorsque l'on constate que cela ne marche pas très 
bien. C'est alors que la nécessité d'une telle instruction vient 
à l'évidence! Et encore faut-il faire des essais avec des nombres 
de plus d'un chiffre, ce que l'on ne fait pas en général en début 
d'essai. Il est beaucoup plus facile de vérifier que cela 
"marche" pour une multiplication de 3 par 2 que de 256 par 497! 


Cette remarque est destinée aux programmeurs débutants, qui 
peuvent se sentir "coupables" de n'avoir point prévu cette 
instruction. Qu'ils soient convaincus que l'auteur du programme 
n'a rajouté cette instruction qu'après essai malheureux! 


De même la chaîne d'effacement EF$ comporte 22 espaces. Or 21 
suffiraient d'évidence. Il n'empêche que nous en avons mis 22 
“hour le cas où". Une fois le programme mis au point, on hésite 
bien souvent à "“resserrer les tolérances" pour ne pas avoir à 
revérifier que cela marche dans tous les cas, ce qui imposerait 
de recommencer de nombreux essais! 


#4 1130 
a/ La fenêtre d'affichage débute en colonne Bet se 
temine en colonne 32 (voir instruction d'affichage de la 
plage Rouge fond sous l'étiquette 930). On doit y loger une 
chaîne de 21 caractères au plus (mantisse 16, point 
décimal 1, exposant 4) 


Pour centrer cette chaîne à sa longueur maximale nous 
placerons le caractère le plus à droite en colonne 30, d'où 
le numéro de colonne 31 -  LEN(Z$) figurant dans 
l'instruction LOCATE, qui donne bien un numéro de colonne 
égal à 30 pour un caractère unique. 


b/ Affichage de 2$ 


#tk 1140 
Branchement en 1020 pour pointé d'une nouvelle case. 


Les instructions 1100 à 1140 permettent ainsi de recueillir une 
chaîne de caractères, représentant le nombre, obtenue par 
pointés successifs à l'écran. La lecture des chiffres se termine 
lorsque le pointé est effectué sur une touche qui n'est pas une 
touche chiffre (étiquette 1030). 
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1200 

Cette instruction est branchée si la touche "point 
décimal" a été désignée par le crayon optique (U = 1 et V = 
4). 


Si l'indicateur PT est égal à O, la touche "point 
décimal" n'a pas encore été pointée, du moins pour le 
dernier nombre en cours d'affichage (dès qu'un nouveau 
nombre est en cours d'affichage, Z$ est initialisé à zéro, 
chaîne de longueur nulle et PT$ est initialisé à 0, à 
l'étiquette 1010) 


Dans ces conditions (PT$ = 0, la touche "point décimal" 
n'a pas encore été pointée), le branchement en 1200, dû au 
pointé de la case "point décimal" provoque le basculement à 
1 du drapeau PT%, le chargement dans X$ du caractère ".", 
puis le branchement en 1110, pour concaténation de X$ au 
bout de la chaîne Z$, affichage de Z$, etc (voir étiquette 
1110 et suivantes). 


SI- PTX n'est pas. égal à O0 (le point décimal a déjà été 
désigné) (instruction ELSE) le message d'erreur "E" est 
affiché et le signal d'erreur S0S$ émis (voir 1110). Le 
programme est branché en 1020 pour un nouveau pointé. 


1300 - 1310 
Cette instruction est branchée si l'une des touches de la 
colonne opérations (U = 5) a été pointée. 


Si le paramètre OPER$, caractérisant la dernière opération 
pointée est égal à 1 (signe = d'affichage du résultat), 
alors OPERS est posé égal à V + 1 (soit 2 pour l'addition, 3 
pour la soustraction, 4 pour la multiplication et 5 pour la 
division). Cela permet de mettre en mémoire l'opération 
demandée. 


La variable A est posée égale à la dernière valeur 
affichée (la fonction VAL(Z$) transforme la chaîne de 
caractères Z$ en une valeur numérique double précision, 
puique À a été déclarée comme telle en 10 -(M.Ref 151)-). 


Le type d'opération choisie OPER$(V+1), est affiché dans 
le marqueur d'opérations. 


La variable OPER$ est posée égale à OPER$(V+1) pour garder 
en mémoire le type d'opération choisi en cas d'erreur 
ultérieure (voir par exemple étiquette 1110 ou 1200). 


KRK 
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La note caractérisant le type d'opération, Mÿ(V+1) est 
émise et le programme branché en 1010 pour le pointé de 
l'opérande suivant (étiquette 1310) 


Si la dernière fonction pointée n'est pas "=", le 
programme est immédiatement branché en 1010 pour un nouveau 
pointé. Nous avons décidé en effet de n'accepter une 
nouvelle opération qu'après affichage du résultat de 
l'opération précédente par la commande "=". 


Cette dernière option n'est pas classique, mais rien ne 
nous interdit de la choisir. 


1400 - 1410 
Cette instruction est branchée si la touche "=" a été 
pointée (U = 3 et V = 4) 


a/ La valeur numérique contenue dans À est transferrée 
dans B. 


b/ La dernière valeur affichée (chaîne Z$) est placée 
dans A. 


c/ d/ et e/ Le marqueur d'opération affiche le signe "=", 


f/ La variable chaîne de caractère OPER$ est posée égale 
à "at, 


g/ En fonction du paramètre OPER$, caractéristique du type 
d'opération, le programme est branché en 2000 (OPER4=2, 
addition), 2100 (OPER$=3, soustraction), 2200 (OPERY=4, 
multiplication) ou 2300 (OPERŸ=5, division). 


Si la dernière opération commandée était un affichage de 
résultat (OPER$-1), le programme est branché en 1410 pour 
émission d'un signal d'erreur et retour à un nouveau pointé. 


2000 - 2300 

L'opération commandée est exécutée sur les deux opérandes 
A et B, le résultat est stocké dans À, puis le programme 
branché en 2500. 


Dans le cas particulier de la division (2300), la valeur 
nulle du diviseur À est testée pour éviter que le programme 
ne se "plante". Si A est nul, le message d'erreur est 
affiché et le signal d'erreur émis, puis À est de nouveau 
posé égal à B pour recommencer la division. 


165 
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2500 
a/ Le résultat À de l'opération est transformé en chaîne 
de caractères par la fonction STR$(A) -(M.Ref 147)- 


b/ La note caractéristique de l'opération "=" est émise. 


2510 
La dernière valeur affichée est effacée et le résultat 
(chaîne Z$) est affiché. 


Le résultat figurant sous forme de Z$ peut alors être 
utilisé pour une opération ultérieure. 


2520 

a/ La variable OPERŸ est posée égale à 1 (caractéristique 
de l'opération = d'affichage du résultat) ce qui permet de 
commander une nouvelle opération en 1300, en utilisant le 
résultat comme premier opérande. 


b/ Branchement au sous-programme 5000 de relevé de la case 
pointée. 


c/ Si le pointé n'a pas été fait dans l'une des deux 
dernières colonnes des touches de la calculette, un signal 
d'erreur est émis et le programme rebranché en 2520 pour un 
nouveau pointé. Cela interdit de rentrer un nouvel opérande 
en pointant les touches chiffres. 


Sinon (ELSE) le programme est branché en 1030 pour analyse 
de la touche pointée. 


3000 

Le programme est branché sur cette étiquette si U = 4, 
c'est à dire si une touche de la quatrième colonne a été 
pointée. 


L'instruction ON V GOTO -(M.Ref 80)- branche le programme 
sur les instructions 3100 (V = 1, touche de mise en 
mémoire), 3200 (V = 2, touche de rappel de la valeur en 
mémoire), 3300 (V = 3, touche d'effacement) ou 3400 (V = 4, 
touche de changement de signe). 


3100 
La touche M de mise en mémoire a été pointée. 


La valeur du nombre affiché (VAL(Z$), -(M.Ref 151)-) est 
stockée dans la variable M (double précision imposée en 10). 


Lis 
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Cette valeur est également stockée dans la variable A (le 
pointé de la touche "mise en mémoire" est une commande qui 
signifie, comme les autres commandes d'opération que le 
pointé des chiffres est terminé et que le nombre affiché est 
“complet"). 


Le marqueur d'opération affiche M et la note correspondant 
à l'opération, M$(5), est émise. Le programme est rebranché 
sur 2520 comme après une opération d'affichage de résultat. 


3200 


La touche R de rappel de la valeur en mémoire a été 
pointée. 


La variable chaîne de caractères 2$ est chargée avec le 
contenu de la mémoire M -(M.Ref 151)- et la chaîne Z$ 
affichée, après effacement de la dernière valeur. 


Le merqueur d'opération affiche R et la note correspondant 
à l'opération, M$(7) est émise. 


Le programme est branché en 1020 pour un nouveau pointé. 


On remarquera que la valeur rappelée peut être utilisée 
comme premier ou comme deuxième opérande. 


11 faut donc brancher le programme en 1020 pour un nouveau 
pointé et non en 2520 comme après une mise en mémoire, car 
dans ce cas l'affichage du résultat par la commande "=" est 
impossible. 


3300 


La touche EF d'effacement a été pointée. 


La variable À est mise à zéro, le symbole GR$(0O) (EF) est 
affiché sur le marqueur d'opérations et le programme branché 
en 1010 pour lecture d'un nouvel opérande. 
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kit 3400 ue us 
La touche +/- de changement de signe a été pointée. 


Le symbole GR$(1) (+/-) est affiché sur le marqueur 
d'opérations. 


La valeur de la chaîne VAL(Z$) -(M.Ref 151)-, changée de 
signe est placée dans la variable double précision C. 


La variable C est transformée en chaîne de caractère 2% 
par la fonction STR$(C) -(M.Ref 147)- et la nouvelle chaîne 
2$ affichée. 


Le programme est branché en 1020 pour un nouveau pointé. 


(On aurait pu simplifier les instructions de changement de 
signe en écrivant directement Z$-STR$(-VAL(Z$)), sans passer 
par l'intermédiaire de la variable C.) 


La mise au point d'un tel programme est délicate, car il 
est nécessaire de faire de nombreux essais pour tenter de passer 
en revue toutes les combinaisons de commandes qui peuvent 
conduire à un comportement aberrant de la calculette. 


Il est donc recommandé de ne progresser que pas à pas dans 
la programmation, en essayant une commande ou une fonction 
(lecture d'un nombre, opérations, mémoire etc) à fond avant de 
programmer une autre fonction. De même on aura intérêt à placer 
des instructions provisoires aux étiquettes branchées par les 
ON...GOTO, pour vérifier que les branchements se font bien comme 
prévus sur pointé des touches écran. 


Par exemple il est indispensable de vérifier le 
sous-programme 5000 en affichant provisoirement les valeurs de U 
et V correspondant au pointé des différentes touches. Il est 
évident que si les valeurs de U et V ne sont pas les valeurs 
attendues, par suite d'une erreur de logique ou d'une erreur 
matérielle (valeur numérique fausse en 5040 par exemple), le 
pointé d'une touche de fonction peut avoir un résultat curieux, 
même si le programme correspondant à cette commande est correct. 


Un excellent exercice  consisterait à compléter la 
calculette en programmant des fonctions complémentaires, racine 
carrée, fonctions trigonométriques, fonctions exponentielle et 
logarithme, affichage avec un nombre fixe de décimales, etc. 
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9 


Tableau de données 


Nous supposerons que nous disposons des chiffres d'affaire 
de trois départements d'une société, réalisés chaque jour de la 
semaine. Nous voulons les mettre en mémoire, les présenter sur un 
tableau rectangulaire de trois colonnes A, 8 et C (pour les 
départements) et de cinq colonnes pour les jours de la semaine et 
calculer les totaux, par département et par jour, ainsi que les 
pourcentages correspondants par rapport au total général. 


Nous allons bâtir un tableau de B lignes et de 6 colonnes, 
La première colonne servira à l'identification des lignes et la 
première ligne à l'identification des colonnes. Il se présentera 
donc de la façon suivante : 


A 8 E TOTAL #% 


SJ Ou EE WU — © 
Le 
m 
[en 


| Nous avons numéroté le lignes de 0 à 7 et les colonnes de O0 
à 5, les ligne et colonne 0 étant destinées aux renseignements. 


Les trois colonnes 1 à 3 et les cinq lignes 1 à 5 du 
tableau seront remplies par l'opérateur. 
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Les totaux correspondant à chacun des départements seront 
affichés en ligne 6, colonnes 1 à 3, les pourcentages en ligne 7, 
colonne 1 à 3. 

Les totaux correspondant à chacun des jours de la semaine 
seront affichés en colonne 4, lignes 1 à 5, les pourcentages en 
colonne 5, lignes 1 à 5. 


Le total général sera affiché en ligne 6, colonne 4 


La case en haut à gauche et les trois cases en bas à droite 
sont disponibles. 


La colonne 0 du tableau aura une largeur de 40 points 
d'écran de façon à pouvoir y centrer 3 caractères. 

La colonne 5 destinée à recevoir des pourcentages aura 4B 
points de large de façon à pouvoir y centrer 4 caractères. Les 
pourcentages seront en effet donnés avec une décimale, ce qui 
donne 4 caractères, compte tenu du point décimal. 

Dans le cas particulier où nous aurons un pourcentage égal 
à 100, nous inscrirons la chaîne "Cent" au lieu de la valeur 
numérique, ce qui donne toujours 4 caractères. 


Il nous reste donc 40 - 5 - 5 = 29 cases caractères de huit 
points pour les colonnes 1 à 4. Chacune des colonnes 1 à 3 aura 
donc une largeur de 7 x 8 = 56 points et la colonne 4, pour les 
totaux, aura une largeur de 8 x B = 64 points. 


Enfin les 8 lignes du tableau auront un hauteur de trois 
caractères, soit 3 x B = 24 points, ce qui occupe 24 lignes 
caractère de l'écran. 


Pour remplir avec les données, le tableau trois colonnes 
sur cinq lignes, nous pourrions décider d'opérer, a priori, ligne 
par ligne ou au contraire colonne par colonne. Ce choix dépend de 
la façon dont l'opérateur dispose de ses données, par département 
ou par jour. Il nous est donc difficile de faire un choix qui ne 
soit pas arbitraire et qui suppose un type particulier de recueil 
de données qui peut varier d'une organisation à l'autre. 


Nous laisserons donc la possibilité à l'opérateur de 
choisir la solution qu'il préfère. 
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Pour cela nous le laisserons maître de choisir la case à 
remplir en déplaçant un "spot" sur la grille 3 x 5 à l'aide des 
quatre flèches de commande du clavier. 


L'affichage d'un nombre dans la case désignée par le 
"spot", se fera en tapant successivement, au clavier, les 
chiffres composant ce nombre. Ces chiffres apparaitront dans la 
case sur la marge de droite, les chiffres précédemment tapés 5e 
déplaçant vers la gauche. Le nombre ainsi tapé se présentera 
constamment justifié à droite. 


Par ailleurs, compte tenu de la taille des cases, limitée 
par la taille même de l'écran, nous n'accepterons que des 
nombres entiers positifs ayant au plus cinq chiffres (les cases 
ont 7 caractères de large). Il faudra donc prendre garde à faire 


respecter automatiquement cette contrainte et à interdire la 
frappe de caractères autres que des chiffres. 


Compte tenu de ces dispositions, le programme de dessin du 
tableau se présente de la façon suivante : 


18 SCREEN 46,6 

20 CLS:CLEAR 

30 DEFINT N:DIM ZC3: 5) » NCS, 5) 

GO ME MMM S TON MMM ESS MNMUMAEN € PEU UE N° 
IPS=" "TSH" MTS" MATE" M4GS+ HAN. HS 
PPS=P#+"  "+P#+" “4+PS 

50 DO$="L4804D0" 

128 BOXF (@, 242-139, 191); -6 

110 BOXF(C4@, @)-(319; 235); -6 

120 BOXF(@, 8) -(39 24)» -5 

138 BOX(@, 8) -(319; 191) 


148 LINE(4@, @)-(4@; 198) :FOR X=98 TO 210 STEP 96: 
LINECX: @)-CX, 190) :NEXT:LINE(272,@)-(272; 190) 


150 FOR Y=Z24 TO 168 STEP 242:LINE(CO, Y>-(319; Y) :NEXT 
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Los 


Xe 


Kck 
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208 COLOR 7:5:LOCATE 8; 1, @5PRINT "A": 
LOCATE 15, 1:PRINT "B'": 
LOCATE 22, 1:PRINT "CC": 
LOCATE 28; 1:PRINT "TOTAL" 
LOCATE 36; 1:ATTRB 1,G:PRINT “X":ATTRE 0,0 


2106 DATA LUN, MAR; MER, JEU» VEN» TOT, " %" 


220 FOR J=4 TO 22 STEP 3: 
READ Z$:LOCATE 1,J:PRINT Z$:NEXT 


10 
Fixe la couleur caractères au Bleu (4), la couleur du fond 
et de l'entourage au Cyan (6). 


20 
a/ Efface l'écran 


b/ Met à zéro toutes les variables et récupère la place 
des variables simples et des tableaux. 


Cette instruction n'est pas nécessaire en début de 
programme, mais elle sera utile pour recommencer un nouveau 
tableau (remise rapide à zéro de toutes les variables) .I1 
faut prendre garde toutefois à dimensionner à nouveau les 
tableaux par DIM (une instruction O1M avant un CLEAR est 


sans effet puisqu'annulée par le CLEAR). 


30 
a/ Toutes les variables dont le nom commence par un N 
seront considérées comme des variables entières -(M.Ref 40)- 


b/ Les deux variables Z (simple précision) et N (entier) 
sont déclarées comme étant des tableaux dépendant de deux 
paramètres, le premier pouvant varier de D à 3, le second de 
D à ss. 


La variable Z servira de stockage des données, Z(1,J) 
étant la donnée inscrite dans la case de la colonne I et de 
la ligne J. 


Les valeurs I=D et J=-D sont inutilisées ce qui contitue 
A : x : Ne 
une réservation abusive de neuf places mémoires, mais il est 


plus commode de raisonner avec des indices commençant à 1 
plutôt qu'à 0. 


kick 


kick 


La variable N servira d'indicateur signalant qu'une donnée 
à été entrée. 


Si une donnée a été entrée dans la case en colonne I, 
ligne J, N(I,J) sera posé égal à -1 (voir étiquette 2100). 


40 

Les variables définies ici seront utilisées comme images 
dans les instructions PRINT USING -(M.Ref 90)-. Nous en 
verrons la justification au moment de l'emploi. 


50 

La variable 00$ sera utilisée avec une instruction PLAY 
-(M.Ref 201)- pour émettre un DO de durée 4B (blanche) à 
l'octave 4, 


Nous en arrivons maintenant au dessin proprement dit du 


tableau. Pour clarifier le listing, nous commencerons cette 
partie du programme à l'étiquette 100. 


#4 


Yi 


100 - 110 
Colorent en couleur Magenta fond (-6) la colonne 0 et Ja 
ligne O0 du tableau. 


120 
Colore en Bleu fond (-5) la case inutilisée en haut et à 
gauche du tableau. 


13D 

Trace un cadre autour du tableau en couleur caractère Bleu 
imposée par l'instruction SCREEN en 10 (valeur prise par 
défaut puisque non précisée). 


140 
a/ Trace la verticale séparant les colonnes 0 et 1 du 
tableau 


b/ Trace les trois verticales de séparation des colonnes 
1, 2, 3 et 4 du tableau. 


c/ Trace la verticale de séparation des deux dernières 
colonnes du tableau. 
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On notera que les abscisses des verticales ne sont pas des 
multiples exacts de huit, mais des multiples de huit 
augmentés de 2. 


Ceci permettra de ne pas "coller" le caractère écrit à 
droite de la case sur la verticale de séparation. 


#kk 150 
Trace les sept horizontales de séparation des lignes du 
tableau. 
##k 200 


Affiche les symboles d'identification des colonnes sur la 
ligne O0 du tableau, donc sur la ligne 1 de l'écran en Blanc 
(7) sur fond Magenta (5). 


Pour centrer le symbole % au milieu de la dernière colonne 
qui a une largeur de six caractères (48 points), on 
l'affiche en largeur double (ATTRB 1,0). La taille des 
caractères est ramenée à la normale par la dernière 
instruction ATTRB 0,0. 


On notera que la première instruction LOCATE se termine 
par un 0 en troisième paramètre pour effacer le curseur dont 
nous n'avons pas besoin. 


#k#x% 210 - 220 
Affiche les symboles d'identification des lignes dans la 
colonne 0 du tableau. 


On notera que lors des tracés successifs des divers 
tableaux, le programme passe plusieurs fois sur 
l'instruction 210 de lecture des DATA stockées en 20D. On 
pourrait craindre une erreur OD (OUT of DATA), venant du 
fait que les OATA ont déjà été lues et que le pointeur est 
en fin de liste. Comme la reprise d'un tableau se fait 
(instruction 3590) en  repassant par l'instruction 2D 
(CLEAR), le pointeur est remis à zéro sans qu'il ne soit 
nécessaire de l'imposer par une instruction RESTORE 


Les instructions de 10 à 220 constituent un "bloc 
exécutable" que l'on doit tester avant de passer à la suite du 
programme. Nous ne saurons trop insister sur cette méthode de 
vérification, qui constitue l'une des révolutions du micro par 
rapport aux méthodes classiques de la grosse informatique. 
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Si le programme "marche" et vous satisfait sur le plan de 
l'esthétique, profitez en pour le sauver sur une cassette, une 
panne de secteur est si vite arrivée! Si vous disposez également 
d'une imprimante, faites donc un listing. Bien entendu, si vous 
avez recopié fidèlement les instructions de ce livre cette 
précaution est inutile. Mais si vous avez apporté quelques 
améliorations, il est très commde de disposer d'un listing à 
jour avant d'attaquer la suite. 


Rappelons que pour lister un programme sur l'imprimante, la 
commande générale s'écrit : 


LIST M"LPRT:(N)",E1-E2 


où N est le nombre de caractères par ligne disponibles sur 
l'imprimante, E1 la première étiquette à lister et E2 la 
dernière. 


Pour l'imprimante thermique PR 90 040, N maximal est égal à 
40. Il n'est pas nécessaire dans ce cas de faire figurer (40) 
derrière les deux points, la valeur 40 étant retenue par défaut. 
Mais il ne faut pas oublier les guillemets ni les deux points. 

Pour l'imprimante à aiguilles PR 90 080, N maximal est égal 
à BD. Il faut dans ce cas préciser la valeur de N (sauf si l'on 
veut lister sur 40 colonnes seulement, ce qui n'est pas 
économique! ). 


Enfin si l'on désire tout le listing, il suffit de ne pas 
préciser les étiquettes E1 et E2 (on supprime dans ce cas la 
virgule après le dernier guillemet). 


CU SE | 


Programmons maintenant l'introduction des données. 


Rappelons que nous désirons afficher un "spot" dans la case 
où nous allons entrer la donnée, en déplaçant le "spot! à l'aide 
des quatre Flèches de commande du clavier. 


Le "spot" sera constitué d'un rectangle de 5 cases caractère 
en Rouge fond de telle sorte que l'on puisse écrire dessus pour 
entrer la donnée et le supprimer en passant sa couleur au Cyan 
fond (en réaffichant la donnée si elle existe). 
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11 nous faut prévoir une commande pour signaler que nous 
avons entré la totalité des chiffres constituant la donnée (les 
chiffres une fois tapés s'affichent à droite de la case du 
tableau en repoussant les précédents vers la gauche). Cette 


commande est tout naturellemebt la touche ENTREE. 


11 faut enfin prévoir une commande signalant la fin de la 
phase d'entrée des données. 


On pourrait envisager de passer au calcul des sommes et des 
pourcentages de façon automatique dès que le tableau est 
entièrement rempli (il n'y a plus alors d'indicateurs N(I,J) 
nuls). Mais il est inutile de remplir le tableau avec des valeurs 
nulles s'il en existe et il peut être commode, avant de 
déclancher le calcul de vérifier le tableau et y apporter, si 
nécessaire, des corrections. 


Nous choisirons donc la solution manuelle, avec commande du 
calcul par la touche ACC par exemple. 11 faudra alors prévoir de 


compléter le tableau avec des zéros, si toutes les cases n'ont 
pas été remplies. 


Pour l'instant programmons l'entrée des données avec le 
déplacement du "spot", 


300 IA=1:JA=1:CA=7:LA=4: 
BOXF C(B*xCA, 8#LA) -CBxCA+S9, BxLA+7), -2 


500 ZHS=INPUTS(C1):Z=ASC(Z$) :W=1-(Z=8) -2#(2=9) 
—3k(Z=10)-4K(Z=12)-SK(7)47 AND Z (58) 
—6k(Z=15)-7#K(7=22) 


510 ON W GOTO 500, 600, 700, 800, 900, 2000, 2100, :8000 


600 IN=IA-1:1IF IN=@ THEN IN=1 
610 JN=JA:GOTO 1000 
708 IN=IA+1:IF IN=4 THEN IN=3S 


710 JN=JA:GOTO 1000 
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800 JN=JA+1:IF JN=6 THEN JN=5 
810 INeIA:GOTO 1000 
900 JN=JA-1:1F JN=B THEN JNei 


910 IN=IA 


1000 CN=7KIN:LN=SKIJN+1:ZZ$="" 
1018 BOXF (B#CA» BkLA)-CBKCA+S9, BKLA+7) » -7 


1020 IF NCIA, JA) THEN LOCATE CA; LA: COLOR 4,6: 
PRINT USING M$;:ZCIA, JA) 


1050 BOXFCB#CN: BkLN)-CSKCN+39, BxLN+7) ; 2: 
IF NOT NCIN, JN) GOTO 1050 


1040 COLOR 4; 1:LOCATE CN3SLN: 
PRINT USING M$:ZCINr JN) 


1050 IA=IN: JA=IJN: CA=CNSLA=LN:GOTO 500 


2000 ZZ6=Z7#$+Z6:IF LEN(ZZ$)=S GOTO 2100 


2018 Z=VAL(ZZ$):COLOR 7; 1:LOCATE CA, LA: 
PRINT USING M$:Z:GOTO 500 


2100 ZCIA; JA)=VAL(CZZH) :NCIA, JA)=-18 COLOR 4, 3: 
LOCATE CA, LAS PRINT USING M$:ZCIA; JA): 
ZZ$="":PLAY DO$:G0OTO 520 


300 

Nous noterons IA et JA les numéros de colonne et de ligne 
de la case du tableau où se trouve actuellement le spot et 
CA et LA les numéros correspondants de colonne et de ligne 
écran où doit être affichée la donnée dans la case. 


On voit facilement que pour la case IA=1 et JA=-1, case en 
haut et à gauche du tableau, la donnée doit être affichée 
par un PRINT USING, avec une image M$ comportant 5 
caractères dièse, en colonne CA=7 et en ligne LA=4. Dans ces 
conditions la donnée s'affiche sur la ligne au centre de la 
case avec le chiffre des unités situé sur le bord droit de 
la case en colonne écran 11. 
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Linis 
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Comme les cases du tableau ont une largeur de 7 caractères 
et une hauteur de 3 caractères, les relations entre IA et CA 
et entre JA et LA sont CA=7*IA et LA=3*JA+1. 


Les quatre premières instructions de 300 initialisent donc 
IA, JA, CA et LA, aux valeurs correspondant à la case en 
haut et à gauche. 


La cinquième instruction trace un rectangle en couleur 
fond Rouge (-2) occupant la place de cinq caractères, avec 
le premier caractère en colonne 7 et en ligne 4 écran. Ce 
rectangle constitue le "spot", placé initalement dans la 
case haut-gauche du tableau. 


Puisque l'on trace un rectangle plein en couleur fond sur 
fond, on notera que l'on aurait pu mettre comme abscisse du 
coin  bas-droit toute valeur comprise entre B*CA+32 et 
B*CA+39 (voir Annexe I sur la gestion des couleurs et les 
commentaires de l'étiquette 1D10). 

500 

a/ Le programme se met en attente de la frappe d'une 
touche (et d'une seule) au clavier, puis place le caractère 
correspondant dans Z$ -(M.Ref 174)- 


b/ Z est le numéro de code ASCII de Z$ et caractérise la 
touche frappée. 


c/ Calculée à partir de variables logiques de la forme 
(Z=N), la variable W prend les valeurs suivantes ! 


2 si la Flèche Gauche a été tapée (numéro de code 8) 
3 si la Flèche Droite a été tapée (numéro de code 9) 
& si la Flèche Bas a été tapée (numéro de code 10) 
5 si la Flèche Haut a été tapée (numéro de code 11) 


6 si la touche tapée est une touche chiffre 
(numéro de code entre 48 pour "0" et 57 pour "g") 


7 si la touche ENTREE a été tapée (numéro de code 13) 
8 si la touche ACC a été tapée (numéro de code 22) 


1 pour toute autre touche. 


Less 


LE: 


vetere 


510 

Branche aux étiquettes placées à droite du GOTO -(M.Ref 
BO)- suivant les valeurs de W calculées à l'instruction 
précédente. 


-Si aucune touche utile n'a été frappée (W = 1), le 
programme est rebranché en 500 pour une nouvelle lecture. 


-Si une des flèches a été frappée, branchement à l'une des 
étiquettes 600 à 900, pour déplacement du "spot". 


-Si un chiffre a été tapé, branchement en 2000. 


-Si la touche ENTREE a été frappée, branchement en 2100 
(commande de fin d'entrée d'une donnée) 


-Si la touche ACC a été frappée, branchement en 3000 
(commande de début de calcul des sommes et des 
pourcentages). 


600 - 910 

Ces instructions calculent les valeurs IN et JN (nouvelle 
colonne et nouvelle ligne de la case, commandées par 
l'action sur l'une des quatre flèches du clavier). Les 
commandes intempestives risquant de faire sortir le "spot" 
de la grille 3 x 5 cases, sont interdites par les 
instructions IF. 


Par exemple, la frappe de la Flèche Oroite (numéro de code 
9) ayant provoqué le branchement en 700, la nouvelle valeur 
de 1, soit IN est égale à IA+1, sauf si IN atteint la valeur 
interdite 4, auquel cas IN est posée égale à 3. Le programme 
est ensuite branché en 1000, pour le déplacement du "spot". 


1000 

a/ et b/ Calcul de la position CN, LN (numéro de colonne 
et de ligne écran) où devrait être affichée la prochaine 
donnée, si elle est entrée par l'opérateur. 


Nous avons vu la relation entre les C et les I d'une part, 
les L et les J d'autre part à l'occasion des commentaires de 
l'étiquette 300. 


c/ La variable Z2$ destinée à recueillir les chiffres 


successifs composant la prochaine donnée est mise à "zéro" 
(chaîne de caractères de longueur nulle). 
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Lés 


HA 
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1010 

La plage Rouge fond tracée à l'ancienne position du 
"spot", caractérisée par CA et LA, est affichée en Cyan fond 
(-7). Le Rouge s'efface donc, le "spot" tracé alors en Cyan 
fond sur fond Cyan disparaissant. 


Le fait de tracer le rectangle plein jusqu'à l'abscisse 
B*CA+39 en Cyan fond, impose à tous les points de la plage 
correspondant à cinq caractères dont le premier est en 
colonne CA, de passer en points de type couleur fond. Cela 
conduit donc à l'effacement de tous les caractères affichés 
sur cette plage. 


Si nous avions programmé une abscisse du coin droit égale 
à B*CA+32, nous aurions bien imposé aux points fond de la 
dernière case caractère de passer du Rouge fond au Cyan fond 
mais les points de type caractère, c'est-à-dire les points 
du dernier caractère, n'auraient pas été affectés par cet 
ordre et seraient restés affichés, avec leur couleur 
caractère. On notera que la première "colonne" de huit 
points à gauche d'une case caractère n'est jamais occupée 
par. des points caractères. Changer le type de couleur de ces 
points pour une couleur fond différente, provoque le 
changement de couleur de tous les points fond de la case, 
mais n'influe pas sur le caractère lui-même. 


Toutes ces remarques peuvent sembler subtiles. Il 
n'empèche que le remplacement de 39 par 32, qui a priori 
fait le même effet, peut conduire à des comportements du 
programme difficilement compréhensibles. Pour en juger, 
essayez de remplacer 39 par 32! 


Inutile de préciser que l'auteur n'a découvert toutes ces 
subtilités qu'après quelques expériences malheureuses. 


1020 

Si la case IA, JA, c'est-à-dire la case qui vient d'être 
abandonnée par le "spot" a déjà été remplie par une donnée, 
l'indicateur N(IA,JA) est égal à -1. 


La variable N(IA,JA) considérée comme une variable logique 
est donc "Vrai" (c'est pourquoi nous la posons égale à -1 si 
la case est occupée, voir étiquette 2100). La condition 
derrière l'instruction IF est alors "Vrai" et les 
instructions derrière l'instruction THEN exécutées sinon le 
programme passe à l'étiquette suivante. 


AÉk 


KA 


Ainsi, dans la mesure où une donnée a dé jà été entrée dans 
la case IA, JA, la donnée Z(IA,JA) est affichée en Bleu (4) 
sur fond Cyan (6) par l'instruction PRINT USING. 


1030 
a/ Le "spot" est affiché en Rouge fond à la nouvelle 
place. 


b/ Si la nouvelle case occupée par le spot n'a pas déjà 
été remplie alors l'indicateur N(IN,JN) est égal à 0. Dans 
ces conditions la variable logique N(IN,JN) est égale à 
"Faux" et NOT N(IN,JN) est égale à "Vrai". La condition 
derrière l'instruction IF est "Vrai" et le programme saute 
en 1050, évitant 1040. 


1040 

Cette instruction n'est exécutée que si la nouvelle case 
occupée par le "spot" a déjà été remplie. Oans ces 
conditions la donnée Z(IN,JN) est affichée en Bleu (4) sur 
fond Rouge (1). Ainsi le passage du "spot" sur une donnée 
déjà affichée ne l'efface pas. Si aucune donnée ne fiqurait 
dans la case, le "spot" reste Rouge sans inscription. 


On notera qu'en l'abscence d'utilisation d'indicateur 
marquant l'existance de donnée, on serait conduit à afficher 
un O au passage du "spot", 


On aurait pu penser faire un test sur la valeur nulle ou 
non de Z(IN,JN). Mais il aurait été alors impossible de 
faire la différence entre une donnée nulle et une donnée non 
entrée! 


Là encore il ne faut pas croire que toutes ces subtilités 
ont été prévues et programmées a priori par l'auteur. 


Ce n'est qu'après quelques essais de fonctionnement, que 
le test par la valeur nulle ou non de la donnée s'est révélé 
défectueux et que la nécessité d'utiliser un indicateur est 
apparue évidente. 


1050 

Les nouvelles valeurs IN, JN, CN, LN deviennent désormais 
les valeurs actuelles, IA, JA, CA, LA. O'où les quatre 
instructions de réinitialisation avant le retour en 500 pour 
lecture d'une nouvelle commande. 
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At 


A 


182 


2000 
L'instruction 2000 est branchée si la lecture en S00 est 
celle d'un chiffre. 


La variable Z$ contient donc un chiffre qui doit venir à 
la droite de la chaîne de chiffres déjà entrée (stockée 
dans Z2Z$ mis à zéro à chaque déplacement du "spot", voir 
étiquette 1000, ou après lecture complète d'une donnée, voir 
étiquette 2100). 


a/ 2$ est concaténée à droite de 22$ 


b/ Si la longueur LEN(Z$) -(M.Ref 128)- atteint la valeur 
5 (valeur maximale décidée, a priori, du fait du dessin du 
tableau), le programme est branché en 2100, c'est-à-dire à 
l'étiquette de branchement imposée par la commande ENTREE de 
fin d'entrée de donnée. Il est donc impossible d'entrer un 
nombre de plus de cinq chiffres. 


2010 

a/ Z est la valeur numérique VAL(ZZ$) -(M.Ref 151)- de la 
chaîne partielle Z2Z$, constituée des caractères de la 
chaîne représentant les premiers chiffres entrés. 


b/ c/ et d/ Affichage de la valeur Z, cadrée à droite par 
l'instruction PRINT USING, puisque l'image M$ contient 5 
dièses, qui placent le chiffre des unités de Z en colonne 
CA+4. On voit ainsi s'afficher successivement les chiffres 
avec le dernier frappé, cadré à droite. La couleur de 
caractères est Blanc (7) sur fond Rouge (1),couleur fond du 
“spot" 


f/ Branchement en 500 pour une lecture d'un nouveau 
chiffre ou d'une commande. 


2100 

Les instructions sous cette étiquette sont branchées, soit 
que la touche ENTREE ait été commandée (voir 510), soit que 
le nombre de chiffres entrés ait atteint cinq. 


a/ La valeur numérique correspondand à la chaîne 225$, 
VAL(ZZ$) -(M.Ref  151)-, est stockée dans la variable 
Z(IA,JA) (IA et JA sont les valeurs colonne et ligne de la 
case du tableau actuellement occupée par le "spot"). 


b/ L'indicateur N(IA,JA) est posé égal à -1, puisque la 
case (IA,JA) est maintenant occupée. 


c/ d/ et e/ Affichage en Bleu (4) sur fond Jaune(3) de la 
donnée, cadrée avec le chiffre des unités à droite. 


Le "spot" semble passer au Jaune puisque les chiffres 
s'affichent sur un fond Jaune. Ce changement de couleur 
confirme que la donnée est entrée. 


f/ La chaîne 722$ est remise à zéro, pour une nouvelle 
lecture. 


g/ Le haut-parleur émet un DO -(M.Ref 201)-, confirmant 
l'entrée d'une donnée. 


h/ Branchement pour lecture d'un nouveau chiffre (pour 
correction de la donnée) ou d'une commande. 


11 est recommandé d'essayer dès maintenant cette partie de 
programme. Il est évident que ce type de programme contient de 


nombreux pièges potentiels, nous en avons décrits quelques uns, 
et qu'il est indispensable de l'essayer avant d'aller plus loin. 


CO 


Etudions maintenant le calcul des sommes et des 
pourcentages, déclanché par la commande ACC, qui branche le 
programme en 3000 (voir étiquette 510). 


3000 BOXF (8*CA; 8xLA) -C8*CA+39, 8xLA+7), -7: 
COLOR 4, G:LOCATE CA, LA: 
PRINT USING M$:2ZCIA, JA) 
3010 FOR I1=1 TO 3:FOR J=1 TO 5: 
IF NOT NCI,J) THEN LOCATE 7x1+4, 3xJ+1: 
PRINT "@" 
3020 NEXT J,I 
3070 COLOR 1 
3040 FOR I=1 TO 3 
3050 S=0:FOR J=i TO S5:S=S+7(I,J):NEXT J:SVCI)=S 


3060 LOCATE 7*1-1, 19:PRINT USING T$3S:NEXT I 
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FOR J=i TO 5 


S=0:FOR 1=1 TO 3:S=6+7(I, J):=:NEXT 1:SHCJ)=S 


LOCATE 28, 3J+1:PRINT USING T$:S:NEXT J 


S=0:FOR 1=i1 TO 3:S=S+SV(CI):NEXT 


LOCATE 27, 19:PRINT USING 5$:S 


COLOR @ 

FOR I=1 TO 3 
P=100+SV(1)/S:LOCATE 7*1, 22: 
IF P=100 THEN COLOR 1: 

PRINT "Cent":COLOR @:GOT0O 3340@ 
PRINT USING P$:;P 


PVCID=PINEXT 


FOR J=1 TO 5 

P=100+SH(J)/S:LOCATE 35, 34 J+1: 

IF P=100 THEN COLOR 1: 

PRINT "Cent":COLOR @:GOTO 3430 

PRINT USING P$;P 

PHCJ)=P=NEXT 

BOXF (210; 168)-(319, 191,4: 

BOXF(272, 144)-(319, 168), 4 

COLOR 1; 7:LOCATE 29, 2Z:PRINT "Tavez RAZ"“ 
R$=INPUT$C1):IF ASCCR$) ()12 GOTO 3570 
COLOR 4, 6:CLS 


LOCATE S, 180:PRINT “Pour 


KA 


3550 LOCATE 5,12: 
PRINT "Imprimer le tableau tarez ": 
COLOR 7, 1:PRINT "I":COLOR 4,6 


3560 LOCATE 5, 14: 
PRINT "Taper Un autre tableau tapez ": 
COLOR 7, 1:PRINT "T"':COLOR 4,6 


3570 LOCATE 5, 14: 
PRINT “Cioturer tapez ": 
COLOR 7, 1:PRINT “"I":COLOR 4,6 


39580 R$S=INPUT$(1): 
ON 1-CR$="I")-2#CR$="T")-3#(R$S="C") 
GOTO 3580, 4000, 20, 5000 


9000 SCREEN 4: 6» 6: CLS 


3000 

Les instructions sous cette étiquette sont branchées 
lorsque l'opérateur a tapé la commande ACC (voir 510), pour 
déclancher le calcul des sommes et des pourcentages. 


La dernière donnée entrée a laissé la donnée affichée en 
Bleu sur le "spot" en Jaune (voir étiquette 2100). Il est 
donc nécessaire de réafficher la dernière donnée comme les 
précédentes. 


a/ Passe le "spot" en couleur Cyan fond (-7). 


b/ Fixe la couleur caractère au Bleu (4) sur fond Cyan 
(6). 


c/ et d/ Affiche la donnée de la dernière case IA,JA en 
CA,LA. 


3010 - 3020 

11 se peut que certaines cases n'aient pas reçu de 
données. On sait que ces cases sont caractérisées par un 
indicateur N(I,J) nul. 
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HA 


KA 


AA 


Les 
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Avant d'effectuer les sommations, il est nécessaire de 
compléter le tableau par des zéros dans les cases non 
remplies (on peut être d'un avis contraire et décider de ne 
pas compléter ainsi le tableau, auquel cas il suffit de 
sauter les étiquettes 3010 et 3020). 


Ouverture de deux boucles emboitées en I et J. Si N(I,J) 
est égal à zéro (pas de donnée dans la case 1,J), la 
variable logique N(I,J) est égale à "Faux" et la variable 
logique NOT N(I,J) est égale à "Vrai". Oans ce cas un "O" 
est affiché en colonne 7*1+4 et en ligne 3*]J+1, position du 
chiffre des unités dans la case I, J sinon le programme 
saute en 3020 pour poursuivre les boucles. 


3030 

La couleur caractère est fixée au Rouge (1). On notera que 
la couleur fond de caractère a déjà été fixée au Cyan (6) en 
3000. 11 est donc inutile de le repréciser. 


Cela permettra d'afficher les sommes en Rouge. 


3040 
Ouverture d'une boucle en I, pour calculer les sommes en 
colonne (I est l'indice des colonnes, variant de 1 à 3). 


3050 
a/ Mise à zéro de la variable S dans laquelle on stockera 
provisoirement la somme des données de la colonne I. 


b/ Ouverture d'une boucle en J, variant de 1 à 5, pour 
recueillir les 5 données de la colonne 1. 


c/ Sommation dans S des données de la colonne. 
d/ fermeture de la boucle en J. 


e/ La somme S est placée dans la variable SV(I) (somme 
"verticale" de la colonne 1). 


3060 

a/ et b/ Place le curseur en colonne 7*I-1, ligne 19 (les 
sommes sont affichées dans les colonnes 1 à 3 du tableau, 
sur la ligne 6 du tableau). 


La somme d'une colonne peut avoir 6 chiffres (la somme 
maximale est égale à 99999 x 5 = 499995). I1 faut donc 
l'afficher par une instruction PRINT USING avec une image 


Lies 


DRE 


comportant 6 caractères dièses (voir la définition de 
l'image T$ à l'étiquette 40) et placer le chiffre des unité 
en colonne écran 11 pour la colonne tableau 1, ce qui impose 
de placer le curseur en colonne 11 - 5 = 6 et justifie la 
formule donnant le numéro de colonne en fonction de I 
(rappelons que les colonnes tableau ont 7 caractères de 
large. 


c/ Ferme la boucle en I. 


3070 - 3090 
Instructions analogues aux instructions 3040 à 3060, pour 
les sommations par ligne. 


Les sommes "horizontales" SH(J) sont affichées dans la 
colonne 4 du tableau, sur les lignes tableau 1 à 5, donc les 
lignes écran 3*J+1. 


3200 - 3210 
Sommation des sommes "verticales" SV(I), pour obtenir la 
somme totale, notée S. 


On remarquera qu'il est inutile de faire la sommation des 
sommes "horizontales" SH(J), pour vérifier comme le ferait 
un comptable que l'on obtient le même résultat. 


L'ordinateur ne se trompe jamais dans une sommation du 
moins lorsque l'on a correctement programmé cette sommation! 


La somme totale peut comporter jusqu'à 7 chiffres (la 
valeur maximale est 99999 x 15 = 14999985), 

Aussi est elle affichée en colonne 4, ligne 6 du tableau, 
par une instruction PRINT USING utilisant une image 5$ 
comportant 7 caractères dièse (voir la définition de 5$ à 
l'étiquette 40). 


Les sommes SH(I) sont affichées avec six chiffres (T$) et 
un curseur en colonne 28. 


La somme 5 est affichée avec 7 chiffres (5$) et donc avec 
un curseur en colonne 27, afin d'aligner le chiffre des 
unité sur les chiffres des unités des sommes "horizontales". 


3300 


La couleur des caractères est fixée au Noir (0), pour 
l'affichage des pourcentages. 
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KYCA 


KA 


XAX 


AA 


FAX 


3310 

Ouverture d'une boucle en I pour calculer les pourcentages 
“verticaux" (rapport de la somme d'une colonne 1 à la somme 
totale, multiplié par 100). 


3320 
a/ Calcul du pourcentage stocké provisoirement dans la 
variable P. 


b/ Les pourcentages seront affichés avec une décimale, ce 
qui conduit à 4 caractères (deux pour la partie entière, un 
pour la décimale, un pour le point décimal), sauf dans le 
cas où P est égal à 100. Dans ce dernier cas nous 
afficherons la chaîne "Cent" qui a également 4 caractères. 
Cela conduit à placer le curseur en colonne écran 7 pour la 
colonne 1 du tableau, de façon à aligner la décimale sur le 
chiffre des unités des sommes. Enfin les pourcentages sont 
affichés sur la ligne 7 du tableau donc sur la ligne 22 
écran. 


c/ Si P est égal à 100, la chaîne de caractères "Cent" 
est affichée en Rouge (1), la couleur est remise au Noir (0) 
et le programme branché en 3340 pour sauter l'affichage de 
la valeur numérique. 


3330 
Affichage de la valeur numérique P. 


L'image P$, utilisée dans l'instruction PRINT USING 
comporte deux caractères dièse, pour les deux chiffres de la 
partie entière, un point, pour le point décimal et un 
dernier dièse pour la décimale (voir la définition de P$ à 
l'étiquette 40). 


3340 

a/ À est stocké dans la variable PV(I). Cette variable ne 
sera utilisée que dans le cas où nous désirons recopier le 
tableau sur l'imprimante. 


b/ Fermeture de la boucle en I. Une seule boucle étant en 
service, il est inutile de préciser le nom de la variable 
après l'instruction NEXT. 


3400 - 3430 
Instructions analogues aux instructions 3310 - 3340, 
permettant de calculer et d'afficher les pourcentages 
"horizontaux", stockés dans les variables PH(J). 


Le tableau complet vient d'être affiché avec les sommes et 
les pourcentages. 


I1 faut maintenant proposer un “menu" à l'opérateur, lui 
permettant de choisir entre l'impression du tableau sur 
l'imprimante, le calcul d'un autre tableau ou la clôture. 


Nous ne pouvons afficher ce menu directement, car nous 
manquons de place disponible. Nous ne pouvons pas non plus 
effacer l'écran, dès l'affichage du dernier pourcentage, car nous 

+ 


ne  laisserions pas à l'opérateur le loisir d'examiner le 
résultat. 


Nous n'autoriserons l'affichage du menu que sur commande de 
l'opérateur, par exemple sur la frappe de la touche RAZ. 


XAX 3500 
Ces deux instructions remplissent en Bleu caractère (4), 
les trois cases inutilisées en bas et à droite du tableau. 


#kk 3510 
Affiche le message "Tapez RAZ", en Rouge (1) sur fond 
Blanc(7) au centre de la case en bas à droite du tableau. 


#%% 3520 
a/ Le programme se met en attente de la frappe d'une 
touche et place le caractère correspondant dans la variable 
chaîne de caractères R$, 


b/ Si la touche tapée n'est pas la touche RAZ (numéro de 
code ASCII 12), le programme est rebranché en début 
d'instruction en attente d'une nouvelle frappe. 


Ainsi le programme ne peut franchir l'étiquette 3520 que 
si la touche RAZ a été frappée. 


sax 3530 - 3570 
Affichage du menu, après effacement de l'écran, proposant 
l'impression, un autre tableau ou la clôture. 


On notera que les symboles I, T, C utilisés pour la 


réponse au menu sont affichés en Blanc (7) sur fond Rouge 
(1), pour mieux se distinguer. 
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#%t  35B0 
Permet de brancher le programme en : 


- 4000 pour l'impression du tableau (la réponse R$ est "I" 
et le paramètre de branchement de l'instruction ON... GOTO 
est égal à 2), 


- 20 pour refaire un tableau (l'instruction CLEAR en 20 
remet à zéro toutes les variables) (la réponse R$ est "T" et 
le paramètre de branchement est égal à 3), 


- 5000 pour clôturer (la réponse R$ est "C" et le 
paramètre de branchement est égal à 4). 


Enfin si la réponse est ni I, ni T, ni C, le paramètre de 
branchement est égal à 1 et le programme retourne en 35B0 
pour une nouvelle réponse. 


AA x 5000 
Instructions de clôture effaçant l'écran. Cette 
instruction étant la dernière du listing, il n'est pas 
nécessaire de mettre une instruction ENO. 


KO OX OK OK * % 


Il nous reste maintenant à écrire le programme d'impression 
du tableau. 


L'imprimante thermique PR SO 040, travaillant sur 40 
colonnes, est bien adaptée à la reproduction de l'écran. 


Nous aurions pu utiliser l'instruction SCREENPRINT, mais 
cela aurait nécessité de réafficher le tableau sur l'écran avant 
de le recopier sur l'imprimante (n'oublions pas que nous l'avons 
effacé pour proposer le menu). 


Il est tout aussi simple de le tracer directement par 
programme, ce qui nous donnera l'occasion d'utiliser les 
instructions d'impression. 
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Le programme d'impression se présente de la façon suivante : 


4000 OPEN "O0", 1: "LPRT:(C48)" 
4018 PRINT#i: PRINT#1:GOSUB 4900 


4028 PRINT#i " A B C TOTAL LOE 
GOSUB 4900 


4830 RESTORE 210 
4048 FOR J=i TO 5 


40SD READ Z$:PRINT#1, " "52Z$%5:PRINT#1, USING 1P$%: 
ZC1:J), ZC2:J); ZCSr J)r SHCJ), PHCJ) :GOSUB 4900 


4BED NEXT 


4078 PRINT#1," TOT'"3: 
PRINT#1, USING IP#:SV(1),SV(2), SVCS), GS: 


GOSUB 4900 

4080 PRINT#1," % SE 
PRINT#1, USING PP#:PV(1), PVC2), PUCS) 35 
GOSUR 4900 


4098 PRINT#1:PRINT#1:PRINT#1:PRINT#I: 


4108 CLOSE:GOTO 3550 


4908 FOR I=i TO 4G: PRINT#1, "-"3:NEXT: 
PRINT#1: RETURN 


4000 

Ouverture du canal 1, dans le sens de la mémoire centrale 
vers un périphérique (0 signifie "OUTPUT" pour sortie vers 
le périphérique). 


Le périphérique est l'imprimante (caractérisé par 
"LPRT:"), Le nombre de caractères par ligne est fixé à 40. 


Dans ce cas particulier, on peut ne pas écrire (40) 


derrière les deux points, car 40 est la valeur retenue par 
défaut -(M.Ref 177)- 
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RATE 


HAA 


He 
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4010 
a/ et b/ Les deux instruction PRINT suivies du symbole 
dièse et du numéro de canal -(M.Ref 179)-, provoquent deux 
sauts de ligne sur l'imprimante. 


I1 faut prendre garde à ne pas oublier le symbole dièse et 
le numéro de canal. En l'absence du symbole dièse, 
l'impression se fait sur l'écran et non sur l'imprimante. 


c/ Branchement au sous-programme 4900 qui affiche une 
ligne de 40 tirets (voir 4900). 


4020 
Affichage de la ligne O0 du tableau, donnant la 
signification des colonnes et branchement au sous-programme 
4900 pour tracer une nouvelle ligne de tirets. 


4030 

Nous allons utiliser les DATA de l'étiquette 210, pour 
afficher les symboles dans la colonne O0 du tableau, 
caractérisant les lignes (jours de la semaine, TOT et #). 


Comme ces OATA ont déjà été lues en 220 par le programme 
principal de construction du tableau à l'écran, le pointeur 
de OATA se trouve après la denière donnée. Il est donc 
nécessaire de ramener ce pointeur à la première donnée. 
C'est l'objet de l'instruction RESTORE 210. 


Nous avons déjà remarqué qu'une instruction analogue n'est 
pas nécessaire dans le programme principal, bien qu'une 
nouvelle écriture du tableau puisse avoir lieu. En effet la 
reprise du programme se fait en 20, où l'instruction CLEAR 
remet à zéro toutes les variables et en particulier le 
pointeur de DATA, 


4040 - 4060 
Boucle en J affichant tout d'abord la donnée lue dans les 
OATA de l'étiquette 210, puis les données Z(1,J) à Z(3,J) de 
la ligne tableau J, ainsi que la somme SH(J) et le 
pourcentage PH(J). 


On notera la construction de l'instruction PRINT USING, 
avec le symbole dièse, le numéro de canal (ici 1) et une 
virgule entre PRINT et USING-(M.Ref 179)-. 


Lis 


Fo 


L'image utilisée IP$ (définie en 40), comporte les 
symboles dièse, séparés par des espaces, pour placer les 
valeurs affichées dans la liste dans une position correcte 
sur la ligne. 


On notera également que la première variable de la liste 
est précédée par un point-viroule ";", alors que les autres 
variables de la liste sont séparées par des virgules ",". 


Le branchement au sous-programme 4900 affiche des lignes 
de tirets entre les lignes du tableau. 


4070 - 4080 

Affichages, en ligne 6 et 7 du tableau, des sommes 
verticales", de la somme totale et des pourcentages 
verticaux". 


L'appel au sous-programme 4900 sépare les lignes par une 
ligne de tirets. 


On notera la construction des deux images utilisées par 
les instructions PRINT USING, différentes, pour tenir compte 
des caractéristiques particulières des variables affichées. 


4090 
Provoque 4 sauts de ligne, permettant de "sortir" le 
papier de l'imprimante en dégageant le tableau imprimé. 


4100 

a/ L'impression étant terminée, le canal de transmission 
des données peut être fermé. C'est l'objet de l'instruction 
CLOSE -(M.Ref 170)-qui ferme tous les canaux ouverts. 


Si l'on avait voulu fermer uniquement le canal 1, il 
aurait fallu écrire CLOSE 1. 


Il est indispensable de fermer les canaux ouverts, sous 
peine de troubles de fonctionnement ultérieurs. 


En particulier il serait impossible d'obtenir un listing 
sur l'imprimante, Sur la commande LIST M"LPRT:", un message 
d'erreur  IU (périphérique en cours de fonctionnement, 
“device In Use") serait envoyé, signalant que l'imprimante 
n'est pas disponible. 
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Pour retrouver l'usage de l'imprimante dans un tel cas, 11 
suffit de frapper CLOSE directement au clavier. 


On notera que la fermeture de tous les canaux peut être 
obtenue également par les instructions END et NEW. 


b/ Branchement en 3530 pour l'affichage du menu. 


*#k%x 4900 
Boucle en I permettant d'afficher 40 tirets "-" sur 
l'imprimante. On notera le point-virqule derrière "-", pour 


éviter le saut à la ligne. Le dernier PRINT exécute un saut 
de ligne pour séparer la ligne de tirets de la ligne 
imprimée suivante. 


Le résultat de l'impression est donné ci-dessous sur un 
exemple. Ün constatera qu'il n'est pas possible de tracer des 
séparations verticales entre les colonnes, car nous ne disposons 
pas de ce type de caractère (le caractère de numéro de code ASCII 
92 est composé de deux tirets verticaux, mais son utilisation 
n'ajoute pas de clarté au graphisme). Nous laissons au lecteur le 
soin de l'essayer. 
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L'imprimante PR 90 080 permet plus de "faintaisies". Il est 
par exemple possible d'écrire avec des caractères double largeur 
et de créer des caractères "utilisateur", en particulier tracer 
des lignes et des colonnes. 


Nous allons voir comment programmer ces graphismes 
spéciaux, dans le cas particulier de notre tableau, mais nous 
renvoyons le lecteur à l'Annexe II pour plus de détails sur la 
programmation de cette imprimante. 


Une fois le choix d'impression fait par l'opérateur, on lui 
demandera le numéro sous lequel il veut référencer son tableau 
(ce numéro sera reproduit en tête du tableau), ainsi que la date 
(qui sera également imprimée en tête du tableau). 


Le tableau sera inscrit dans un cadre composé de lignes de 
deux points d'épaisseur. 


Les séparations verticales entre la première colonne 
tableau (renseignements lignes, jours de la semaine, total et %) 
et la seconde, entre la quatrième et la cinquième seront 
également des lignes de deux points d'épaisseur. 


Les lignes de séparation horizontales seront des lignes 
simples, sauf la première et les deux dernières qui seront 
constituées de deux lignes séparées. 


Nous allons tout d'abord placer des instructions 
complémentaires en début de programme pour créer les données 
nécessaires aux graphismes spéciaux. 


4S ISS= " "+Th+" MATSE" MATÉé+" "+66 
68 MGS=CHRS C8) :MC$S=CHR$SC 15) : PC$S=CHRSC16) : 


PGR$S=CHRS (27) +PCS: RR$=CHRS (28) : 
DL$=CHRS (14) :SLS=CHRS C1) 


70 P$=CHR$( 136) : 
P2$=CHR$ (140) : P3$=CHR$S (152) :P4$=CHRS (148) : 
V$=CHRS (255) : VBS=CHRS (252) : VHS=CHRS (159) : 


72 DATA 193,227, 213; 201; 193, 227 
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75 S1iG$="":FOR K=1 TO E:READ 7: 
SIG$S=S1G$S+CHR$ (CZ) :NEXT 


80 RPAS=RR$S+CHRS 23) +P$: RPH$=RR$S+CHRS C4 1) +P$ 
RPC$S=RRS+CHRS (49) +P$: RPD$=RR$S+CHRS (33) +PS 


82 RPA2$=RR$+CHRS (23) +P2$: RPH2$=RR$S+CHRS (41) +P2$ 
RPC2$=RR$+CHRS (49) +P2$: RPD2$=RR$S+CHRS (33) +P2% 


S4 RPAIS=RRS+CHRS(23)+P3$: RPRIS=RRS+CHRS (41) +P3$ 
RPC3$S=RRS+CHRS (49) +P3S: RPD3S=RRS+CHRS 33) +P3$ 


86 RPA4S=RRS+CHRS (23) +P4$ : RPH4AS=RRS+CHRS (41) +P4$ 
RPC4S=RRS+CHRS (49) +P4$: RPD4$=RRS+CHRS (33) +P4$ 


98 LMS=VH+VH+RPAS+US+VS+RPBE+VS+RPERS+VS+ 
RPB$+VS+VH+RPCH+VS+RPDY+VS+VS 


92 LH$S=VRS+VES+RPAZS+VRS+VES+RPEZS+VBS+RPB2$+VB$+ 
RPRZ$S+VA$+VBS+RPC2$+VE$+RPD2$+VB$+VB$ 


94 LBS=VH$+VHS+RPASS+VHS+VHS+RPBS$+VHS+RPBS$S+VH$+ 
RPR3SS+VHS+VH$+RPC3$+VHS+RPDIS+VHS+VH$ 


96 LNS=VS+V$+RPA4G+US+US+RPHAS+US+RPR4S+VS+ 
RPB4ÿ+V$+VS+RPC4S+VS+RPDAS+VS+US 


97 PG$=PGR$S+CHRS (D) +CHRS (120) 
98 TAR$=PC$+"20" 


45 

15$ sera utilisée comme image pour imprimer la ligne des 
sommes verticales et de la somme totale (voir 4070 où sera 
justifiée l'utilisation de cette image particulière alors 
que dans le programme précédent d'impression nous avions 
utilisé la même image que celle employée pour l'impression 
des lignes de données, c'est-à-dire IP$, définie en 40). 


60 
Définition des caractères de commande de l'imprimante 
(voir Annexe II). 


Ces caractères sont utilisés pour changer le Mode 
d'Impression, pour positionner les chaînes, etc. 


Cie 


Cr 


70 
Définitions de divers "motifs". 


Le motif P$ est un point situé sur la ligne centrale d'une 
ligne texte. 


Rappelons qu'une ligne texte sur l'imprimante est composée 
de 7 ‘lignes graphiques, que nous numérotons de 1 pour la 
ligne supérieure à 7 pour la ligne inférieure. Le "poids" du 
point 1 est 1, le poids du point N est 2 puissance (N - 1). 
Ainsi le poids du point central 4 est-il B, et P$ est défini 
par le nombre 12B + B = 136. 


P$ est donc le motif qui nous permettra de bâtir une 
ligne graphique au centre de la ligne texte. 


Le motif P2$ est composé des points 3 et 4. Il permettra 
de bâtir une ligne d'épaisseur double. 


Le motif P3$ est composé des points 4 et 5. Il permettra 
de bâtir également une ligne d'épaisseur double, mais 
placée différemment de la ligne précédente par rapport à la 
ligne centrale. 


Le motif P4$ est composé des points 3 et 5. 11 permettra 
de bâtir deux lignes situées de part et d'autre de la ligne 
centrale. 


Le motif V$ est composé des 7 points. C'est le motif de 
séparation verticale. 


Le motif VB$ est composé des points 3, 4, 5, 6 et 7. Il 
sera utilisé pour compléter la ligne constituée des motifs 
P2$, par des séparations verticales situées sous la ligne. 


Enfin VH$ est composé des points 1, 2, 3, 4 et 5. Il sera 
utilisé pour compléter la ligne constituée des motifs P3$, 
par des séparations verticales situées au dessus de la 
ligne. 


72 - 75 

Les instructions sous les deux étiquettes définissent le 
caractère spécial SI1G$ représentant le caractère grec Sigma 
majuscule. Ce caractère est l'assemblage de six motifs dont 
les valeurs caractéristiques sont stockées dans les DATA de 
72. 
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REE 80 - 86 
Le caractère RPA$ est constitué de la répétition de 23 
motifs P$ (voir l'utilisation de la commande de répétition 
RR$ en annexe Il). Il constitue donc un trait de 23 points 
de long, sur la ligne centrale d'une ligne texte. 


Les caractères RPB$, RPC$, RPO$ sont analogues mais de 
longueur différentes, 41, 49 et 33 points. 


Les caractères RPA2$, RPB2$, ...RPD4$, sont construits de 
façon analogue à partir des motifs P2$, P3$ et P4$. Ils 
constituent des éléments de lignes doubles de différentes 
longueurs. 


#A% 90 - 96 
Le caractère spécial LM$ résulte de la concaténation des 
caractères V$, RPAS, RPB$, RPC$ et RPO$. Il constitue en 
définitive une ligne, au centre de la ligne texte, de 2 + 23 
+ 2 +2 x (41 + 1) + 41 + 2 + 49 + 1 + 33 + 2 = 239 points, 
avec, intercalées des séparations verticales de 7 points de 
haut. 


Ce caractère sera utilisé pour la séparation des lignes de 
données. 


Les caractères LH$ (ligne supérieure du cadre), LB$ (ligne 
inférieure du cadre), LN$ (deux dernières lignes de 
séparation pour les sommes et les pourcentages verticaux), 
sont bâtis de façon analogue. 


*Xk 97 


PG$ est un caractère de positionnement en Mode Graphique, 
plaçant le caractère graphique suivant au point 120 (en 
numérotant O le premier point sur la marge gauche). 


és 98 


TAB$ est un caractère de positionnement en Mode Caractère, 
plaçant le caractère suivant en colonne 20 (En numérotant O0 
la première colonne). 


I1 nous faut prévoir quelques instructions permettant à 
l'opérateur d'entrer le numéro du tableau et la date. Nous 
placerons ces instructions à partir de l'étiquette 3900, ce qui 
nous oblige à changer l'étiquette de branchement du ON .. GOTO en 
3590, lorsque l'opérateur a choisi l'impression, 


198 


3590 ON 1-CR&="I")-2#CRÈ="T") —-Sx CRE="C") 
GOTO 5580, 5300, 20, 5000 


35900 CLS:LOCATE S, 10: PRINT “Numero du tableau :": 
LOCATE S;, 14:PRINT “Date CJJ/MM/AA) :" 


3910 LOCATE 25; 19: INPUT NN$: 
LOCATE 25; 14: INPUT DD 


5920 CLS:LOCATE 5, 10: 
PRINT "IMPRESSION DU TABLEAU NUMERO "3 NN$ 


3930 LOCATE 16; 14:PRINT DD$ 


#%% 3590 
Branche, entre autres, à l'étiquette 3900, si l'opérateur 
a tapé la touche I, pour commander l'impression du tableau. 


#k# 3900 
Affiche deux messages à l'écran pour demander le numéro du 
tableau et la date (on précise la façon d'entrer la date, 
pour normaliser la présentation sur l'imprimante). 


##* 3910 
Le numéro est stocké dans la variable chaine AN$ et la 
date dans la variable chaine 00$. 


Liu 3920 
Affichage d'un message à l'écran rappelant à l'opérateur 
le numéro et la date. 


Le programme d'impression proprement dit, commence à 
l'étiquette 4000. 


11 comprendra successivement des commandes d'impression en 
Mode Caractère Double (par OL$), des commandes d'impression en 
Mode Caractère Simple (par MC$) et des commandes d'impression en 
Mode Graphique (par MG$). 


I1 est nécessaire d'avoir lu l'Annexe II, pour bien 
comprendre la syntaxe de ces instructions, 


199 


200 


4070 


4080 


4090 


4100 


4110 
à1z0 


4130 


4300 


OPEN "O",1, “LPRT:(80)" 


PRINT#1, DL$5PC$:"30":"TABLEAU ":NN$:SLS; 
SL$:PC$:"32":DDS:SLS 


PRINT#1, MGS5 PG$35LHS 


GOSUB 4900: PRINT#1, MC$S: TABS: 
L R B C TOTAL xs: 
GOSUB 4900:G60SUB 4900:GO0SUB 4920 


RESTORE Z10 
FOR J=1 TO 5 


GOSUB 4900:READ Z$S:PRINT#I, MC$S:TABS:" "35283: 
PRINT#1, USING IP#:2Z01,: JD: Z(2,:9J), ZC3» J), 
SHCJ), PHCJ) 5: 

GOSUB 4900:GOSUB 4900: 

IF J=5 THEN GOSUB 4970 ELSE GOSUB 4910 


NEXT 


GOSUB 4900: PRINT#1, MG$ :; PGRS$ 5 CHR$ CO) ; 
CHR$C132):SIG$; 


PRINT#1, MC$3:PC$5"24"35: 
PRINT#i, USING 1S$:SV(C1),SV(C2);: SVCS),GS3: 
GOSUB 4900:G0SUB 4900:GOSUB 4920 


GOSUB 4900: PRINT#Ii, MC$: TABS5"  % "ss 
PRINT#1, USING PP$:PVC1), PVCZ), PVCS) 3: 
GOSUB 4900:GOSUB 4900 


PRINT#1, MG$: PG$5LES$ 

FOR K=1 TO S:PRINT#I:NEXT 

PRINT#1, MCS:CLOSE 1:GO0OT0 3550 

PRINT#1, MGS: PG$ 35: VS: VS 3 PGR$ ; CHR$S CO) :CHR$C 145) ; 
VS: V$5 PGR$S;CHR$S (CD) 5 CHR$C 188) ;: V$3 PGR$ : CHR$ (D) : 
CHR$ (230) :V$ 3 PGR$S 3 CHRS$ C1) 3CHRSC 16) :V$:5 VS; 


PGR$ 5 CHR$ C1) :CHR$ C7) 5 V$ 3 PGR$: CHRS$ C1) ; 
CHR$ (101): V$3 VS: RETURN 


Dir 


Las 


Uri 


4910 PRINT#1, MGS :; PG6 ;LM$ : RETURN 


4920 PRINT#1, MG$ :PG6:LN$:RE TURN 


4000 
Ouverture du canal 1 pour alimenter, en sortie de mémoire 
centrale  ("O" pour Output), le périphérique imprimante 
("LPRT:(80)"), travaillant sur 80 colonnes. 


4010 
Impression d'une succession de commandes faisant exécutar 
les opérations suivantes : 


- Commande du Mode Caractère Oouble (0L$). 

- Positionnement de la tête d'impression en colonne 
texte numéro 30 (c'est à dire en laissant 30 espaces). 

- Impression de la chaine de caractères "TABLEAU ", en 
taille double. 

- Impression de la chaine NN$, représentant le numéro du 
tableau, à la suite de la chaine précédente (le point- 
virgule interdit le saut à la ligne). 

- Exécution de deux sauts à la ligne (SL$). 

- Positionnement de la tête d'impression en colonne 
texte numéro 32 (c'est à dire en laissant 32 espaces). 

- Impression de la chaine D0$, représentant la date. 

- Exécution d'un saut à la ligne (SL$). 


402D 

Impression, en Mode Graphique (MG$), de la ligne supérieure 
LH$ du tableau, le premier point se trouvant placé au point 
120 (PG$ défini en 97). 


4030 
a/ Branchement sur le sous-programme 4900. 


Le sous-programme 4900 place des traits verticaux de 
séparation V$, de façon à bâtir les lignes verticales de 
séparation des colonnes du tableau. 


Chaque trait vertical est positionné par une commande de la 
forme PG$:CHRS(N1);CHRS(N2) (voir l'Annexe 11, pour le calcul 
de N1 et N2 en fonction de la position N du caractère à 
placer). 


201 


AA 


202 


b/ Passage en Mode Caractère, positionnement en colonne 20, 
impression de la ligne de renseignement des colonnes du 
tableau. 


Le point-virqule en fin d'instruction évite un saut à la 
ligne. 


c/ L'appel au sous-programme 4900 imprime les séparations 
verticales sur la ligne précédemment imprimée. 


d/ Ce deuxième appel au sous-programme 4900 imprime les 
séparations verticales sur une ligne vide comme l'instruction 
a. Cela permet d'aérer la présentation, 


e/ Appel au sous-programme 4920. Ce sous-programme affiche 
la ligne de séparation horizontale double LN$. I1 faut noter 
que 4920 comme 4900 fait passer en Mode Graphique. Il est 
donc nécessaire de repasser en Mode Caractère par MC$ avant 
une impression de caractère. 


4040 

Comme dans le programme d'impression avec l'imprimante 
PR 90 040, il est nécessaire de replacer le pointeur de DATA 
en début des données stockées sous l'étiquette 210, pour 
pouvoir les relire 


4050 - 4070 
Boucle en J, destinée à afficher les cinq lignes des 
données ainsi que les sommes et pourcentages horizontaux. 


a/ L'appel au sous programme 4900 provoque l'impression 
d'une première ligne de traits verticaux de séparation. 


b/ Lecture de la chaine Z$ dans la liste de OATA en 210 


c/ Passage au Mode Caractère (MC$), tabulation de 30 
espaces, impression d'Un espace puis de Z$ (jour de la 
semaine). 


Le point-virqule en fin d'instruction évite le saut de 
ligne. 


d/ Impression avec l'image IP$ (voir 40) des trois données 
de la ligne J du tableau, de la somme et du pourcentage. Là 
encore le point-virquie en fin d'instruction évite le saut à 
ls ligne. 


Lust 


e/ L'appel au sous-programme 4900 imprime les traits 
verticaux de séparation sur la ligne où viennent d'être 
imprimées les données. 


f/ Impression des traits verticaux de séparation sur la 
ligne vide suivante. 


g/ Impression de la ligne simple de séparation horizontale 
LM$ (sous-programme 4910) sauf pour la dernière ligne du 
tableau (J = 5), pour laquelle on imprime la ligne double LNÿ 
(sous-programme 4920). 


4090 - 4100 

Ces deux instructions impriment de façon analogue aux 
instructions précédentes, les deux dernières lignes du 
tableau. 


Oans le programme utilisé pour l'imprimante thermique 
PR 90 040, nous avions utilisé l'image IP$ pour imprimer la 
ligne affichant les sommes verticales et la somme totale, 
L'absence de cinquième valeur à imprimer dans la liste des 
variables figurant dans le PRINT USING (il n'y a pas de 
pourcentage à afficher sur cette ligne) était sans 
importance. 

Mais il faut savoir que la non utilisation de la totalité de 
l'image provoque automatiquement un saut à la ligne, même si 
l'instruction se termine par un point-virqule. 


L'utilisation de IP$ nous empècherait donc d'imprimer les 
traits verticaux de séparation sur cette ligne du tableau, 
puisque ces traits sont affichés après l'impression des 
données en évitant le saut à la ligne. 


Nous sommes donc amenés à utiliser une image IS$ 
correspondant à l'impression des quatre sommes et uniquement 
des quatre sommes (15$ a été définie en 45). 


4110 
Impression de la ligne inférieure du cadre LB$. 


4120 
Boucle en K permettant d'exécuter 5 sauts à la ligne, 
dégageant le tableau de l'imprimante, 


4130 


a/ Commande du Mode Caractère pour remettre l'imprimante en 
état de travail normal. 


203 


204 


Son oubli interdirait un listing ultérieur, car la machine 
ne peut imprimer un listing en Mode Caractère si elle est en 
Mode Graphique.Si cet oubli est commis, il suffit de couper 
puis de rétablir l'alimentation de l'imprimante. 


b/ Fermeture du canal 1. 

Cette commande est également indispensable. Les remarques 
faites pour l'imprimante thermique, sont valables pour 
l'imprimante à aiguilles (c'est un problème de canal, non de 
périphérique). 


c/ Branchement en 3530 pour proposer un nouveau choix à 
l'opérateur (on peut éditer plusieurs copies du tableau). 


Nous donnons ci-dessous une reproduction d'un exemple de 
tableau. 


TABLEARALI OS 


EAST 


10 


Sauvegarde des données 


Il est très souvent nécessaire de conserver des 
des résultats pour une utilisation ultérieure. Cette 
peut se faire sur la cassette, sous forme d'un fichier 
et quelque fois sous forme d'un fichier binaire. 


Nous allons voir des exemples de ces deux 
Sauvegarde, ce qui nous permettra d'en connaître les 
et les limitations. 


données et 
sauvegarde 
de données 


types de 
avantages 


Le programme de fabrication de caractères utilisateur se 
terminait -(M.Bas 63 j)- par l'impression des suites de huit 
nombres définissant chaque caractère. Il peut être commode, 
lorsque l'on a créé un grand nombre de caractères de ne pas avoir 


à recopier cette liste de données au début du 


programme 


d'utilisation, comme nous l'avons fait pour le programme de 


mini-écriture (-(M.Bas 127)-. 


Nous allons donc modifier le programme de 


création de 


caractères utilisateur, de façon à pouvoir en stocker les 


résultats. 


La première méthode, très générale consiste 
fichier de données sur la cassette et à relire ce 
début de programme d'utilisation. 


Nous modifierons l'instruction 3000 (-(M.Bas 


façon à proposer à l'opérateur un menu comportant 


supplémentaire, la sauvegarde des résultats. 


à créer un 


fichier en 


100)-, de 
un choix 
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Les instructions 3000 à SO00 du programme restent les 
mêmes à l'exception des suivantes : 


3000 LOCATE 0, 12: 
PRINT "POUR IMPRIMER LES RESULTATS TAPEZ "3: 
COLOR @, 1:PRINT "ENTREE" :COLOR 4,6 


3002 LOCATE ©, 14: 
PRINT “POUR LES SAUVEGARDER TAPEZ "3: 
COLOR @, 1:PRINT "S":COLOR 4,6 


3004 LOCATE 0, 16: 
PRINT "POUR CLOTURER TAPEZ “35: 
COLOR 0, 1:PRINT "F":COLOR 4,6 


3010 LOCATE 20, 16: R$=INPUTS#C1) 


3020 ON 1-CASCCRS)=13)-ZKkCRS="F") 3 CRS="S") 
GOTO 3010, 5500, 4000, 6000 


3500 CLS:LOCATE 8, 12: 
PRINT "IMPRESSION DES RESULTATS": 
OPEN "“O",1;, "LPRT:(80)" 


I1 est inutile de commenter en détail ces instructions de 
routine. Les instructions 3000 - 3004 affichent le menu. Les 
instructions 3010 - 3020 effectuent le branchement, en 3500 pour 
l'impression, en 6000 pour le stockage, en 5000 pour la clôture 
et en 3010 en cas d'erreur de frappe. 


Nous avons rajouté quelques instructions en 3500, avant 
l'ouverture du canal d'impression, pour effacer l'écran et 
afficher un message précisant à l'opérateur que l'on est en phase 
d'impression. Cela permet de noter plus clairement le retour au 
menu, une fois cette phase terminée. 


Le programme de stockage des résultats est le suivant : 


6000 CLS:LOCATE 7,12: 
PRINT "NOM DU FICHIER DE STOCKAGE" 


6010 LOCATE 15, 16:INPUT F$ 
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tes 


6020 BEEP:CLS:LOCATE 5, 12: 
PRINT "METTRE LES TOUCHES DU LECTEUR": 
LOCATE 7, 14:PRINT “EN POSITION "::COLOR 1: 
PRINT "ENREGISTREMENT ":COLOR 4 

6038 LOCATE 29, 22: 
PRINT "TAPEZ "3: COLOR 0, S:PRINT "ENTREE": 
COLOR 4, 6:BEEP 

6040 R$=INPUT$(1):IF ASC CR$) (13 GOTO 6040 

ES50Q CLS:OPEN "O",1,F$ 


6510 PRINT #1; NG:LOCATE 6, 0: 
PRINT "SAUVEGARDE DES ";NG+15" CARACTERES" 


6520 FOR 1=0 TO NG 
6530 COLOR 1:PRINT 1::COL0R 4 
6540 FOR J=i TO B 
6550 PRINT #1,Z0J, ID:PRINT ZCJ,1) 
6560 NEXT J,1 
6570 CLOSE:G60T0 3000 
6000 - 6010 
Ces deux instructions permettent à l'opérateur d'entrer le 
nom du fichier dans lequel il désire stocker ses données. 


Ce nom est placé dans la variable chaîne de caractères 


F$. 


6020 - 6040 

Affichage d'un message à l'opérateur pour lui rappeler que 
le lecteur de cassette doit être placé en situation 
d'enregistrement, d'où l'usage du BIP et de la couleur Rouge 
pour attirer son attention. 


L'enregitrement ne peut en outre s'effectuer que sur 
commande de la touche ENTREE. 


6500 
a/ Effacement de l'écran. 
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RAA 


208 


b/ Ouverture du canal 1, fonctionnant dans le sens 
"sortie" (O pour Output), c'est-à-dire dans le sens mémoire 
centrale vers le périphérique, ici le lecteur de cassette, 
qui est le périphérique choisi par défaut lorsque le type de 
périphérique n'est pas précisé -(M.Ref 17B)-. 


On notera que le nom du fichier F$ est précisé à la fin de 
l'instruction. 


Une fois le programme exécuté, le fichier figure sur la 
cassette sous le nom chargé dans F$, suivi du suffixe .DAT, 
précisant qu'il s'agit d'un fichier de données et non d'un 
programme écrit en BASIC dont le suffixe est .BAS. 


6510 

e/ Charge dans le fichier en première position la valeur 
NG, c'est-à-dire le nombre de caractères créés (plus 
précisément le nombre de caractères moins un, puisque le 
premier caractère porte le numéro 0). 


C'est la présence du caractère dièse suivi du numéro de 
canal qui fait que l'instruction PRINT charge NG dans le 
fichier et ne l'affiche pas à l'écran. 


b/ et c/ Affiche un message à l'écran comportant la valeur 
NG+1. 


C'est l'absence du caractère dièse à la suite de 
l'instruction PRINT qui permet l'affichage à l'écran. 


6520 - 6560 

Boucles en I (numéro du caractère variant de O0 à NG) et J 
(variant de 1 à B, pour balayer les huit nombres 
caractéristiques du caractère), chargeant les données dans 
le fichier. 


I1 faudra prendre garde à utiliser deux boucles emboitées 
de la même façon pour relire les données. 


Les données sont ainsi stockées dans l'ordre suivant : 


NG, z(1,0), Z(2,0), Z(3,0), .…. z(8,0), z(1,1), z(2,1), 
ss Z(1,NG), ..., Z(B,NG). 


On notera le chargement de Z(J,1) dans le fichier par 
l'instruction PRINT suivie du caractère dièse et du numéro 
de canal et l'affichage de la même valeur à l'écran par 
l'instruction PRINT simple. 


#kkk 6570 
a/ Fermeture de tous les canaux -(M.Ref 170)- 


Cette instruction est indispensable pour pouvoir réouvrir 
le canal 1 pour une autre utilisation (en particulier 
l'impression sur l'imprimante) et pour forcer le canal à se 
"vider" en fin de chargement. Son oubli risque de provoquer 
# it mise en mémoire dans le fichier des dernières valeurs 
Z(I,J). 


b/ Retour au menu. 


11 aurait été possible, en utilisant les boucles en I et J, 
de simultanément stocker les résultats dans le fichier, les 
afficher à l'écran et les imprimer. Il aurait été nécessaire, 
pour cela, d'ouvrir un premier canal, numéro 1 par exemple, pour 
l'imprimante (instruction 3500) et un second, numéro 2, pour le 
fichier (instruction 6500 dans laquelle le numéro de canal est 
posé égal à 2). 


L'orientation d'une donnée vers l'imprimante se fait alors 
par l'instruction PRINT #1, l'orientation vers le fichier par 
l'instruction PRINT #2 et l'orientation vers l'écran par 
l'instruction PRINT simple. 


KRHRHRREX 


Il nous faut maintenant donner un exemple de programme 
utilisant les données du fichier et en conséquence relisant le 
fichier pour pouvoir bâtir les caractères utilisateur. 


Le programme proposé pourra être utilisé pour vérifier que 


les données stockées sont correctes et correspondent bien à 
l'utilisation prévue. 


209 


210 


10 


20 
30 


40 


50 
60 
70 
80 
100 
110 
120 
150 
140 
150 


160 


170 


CLS:LOCATE 7,12: 
PRINT "NOM DU FICHIER DE STOCKAGE" 


LOCATE 15:16: INPUT F$:CLS 
OPEN "I",1,F$ 


INPUT #1, NG:LOCATE 6,0: 
PRINT "NOMBRE DE CARACTERES STOCKES "3: NG+1 


POKE 24575; NG 

CLEAR ; ; NG+1 

NG=PEEK (24575) 

DIM 2(8, NG) 

FOR Ii=0 TO NG 

COLOR 1:PRINT 1: :COLOR 4 
FOR J=i TO 8 

INPUT #1,:ZCJ, ID: PRINT Z(CJ, 1) 
NEXT J:PRINT:NEXT I 

CLOSE 


PRINT:PRINT “ TAPEZ "35: 
COLOR 0, 3: PRINT “ENTREE ":COLOR 4,6 


R$=INPUT$C1)31F ASCCR$) ()13 GOTO 170 


CLS:FOR 1=0 TO NG 


DEFGR$CI)=2(1, 1), ZC2, 1), 203,1), 24, 1); 
ZEUS 1): Z(6:1):2(7: 1); 2Z(8,1) 


PRINT Ir GR$(CI) 


NEXT 


Less 


#k4Xk 


10 - 20 
Lecture du nom du fichier de stockage, tapé au clavier par 
l'opérateur. 


30 

Ouverture du canal 1 en "entrée" (I pour Input), 
c'est-à-dire dans le sens périphérique vers la mémoire 
centrale, Le périphérique n'étant pas précisé, c'est le 
lecteur de cassette qui est retenu par défaut -(M.Ref 178)-. 
On notera que le nom du fichier F$ est placé en fin 
d'instruction. 


Si le lecteur de cassette est placé en situation de 
lecture, le moteur est mis en marche et la cassette 5e 
déroule jusqu'à ce que le fichier, dont le nom est stocké 
dans F$, soit rencontré. Il faut donc prendre garde à 
positionner correctement la bande de façon à se placer avant 
l'enregistrement du fichier. 


40 
a/ Lecture dans le fichier de la première valeur stockée, 
c'est-à-dire le nombre NG. 


L'instruction INPUT recueille la donnée dans le fichier et 
non au clavier car elle est suivie du caractère dièse et du 
numéro de canal. 


b/ et c/ Affichage à l'écran du nombre NG+#1, 


50 - 60 

L'instruction CLEAR efface toutes les valeurs en mémoire 
centrale après avoir effectué les réservations, en 
particulier, dans notre cas, la réservation des NG+1 places 
pour les caractères utilisateur. 


Mais dans ces conditions la valeur NG est détruite ! 


Pour la sauver de l'effacement, nous plaçons, par 
l'instruction 50, sa valeur dans la mémoire 24575. 


I1 se trouve en effet que les 192 mémoires d'adresses 
comprises entre 24384 (5F40 en hexadécimal) et 24575 (SFFF) 
se trouvent disponibles. 


On prendra garde à ce que ces mémoires sont disponibles 


sur la version actuelle du BASIC T07. Il se peut que des 
versions ultérieures utilisent ces emplacements mémoire. 
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Lens 


Cons 


Lies 


kAX 
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L'instruction POKE M,X place la valeur X dans l'octet 
d'adresse M -(M.Ref 86)-. Bien entendu la valeur maximale de 
X est 255 et la valeur minimale 0. C'est bien notre cas 
puisque le nombre de caractères utilisateur ne peut dépasser 
128. 


L'instruction CLEAR efface toutes les variables, mais 
n'efface pas les mémoires. La mémoire 24575 contient donc 
encore la valeur NG après l'exécution de l'instruction 60. 
En réalité l'instruction CLEAR n'efface pas les mémoires où 
sont stockées les variables, pas plus qu'elle n'efface la 
mémoire 24575. Elle ne fait que rendre disponibles les 
mémoires de stockage des variables pour une nouvelle 
utilisation. 


On notera que le nom du fichier F$ est effacé par 
l'instruction 60, mais cela n'a pas d'importance puisque 
nous n'en avons plus besoin. 


70 
Récupération de la valeur de NG stockée en 24575. 


L'instruction X-PEEK(M) place dans X le contenu de la 
mémoire de numéro M -(M.Ref 132)- 


80 
Il est alors possible de dimensionner la variable Z(J,1) 
destinée à recueillir les données lues dans le fichier. 


100 - 150 

Boucles en I (de O à NG) et en J (de 1 à 8) pour relire 
les données. On notera que ces boucles sont "calquées" sur 
les boucles de stockage du programme de création des 
caractères utilisateur, de façon à relire les données dans 
l'ordre de leur écriture. 


150 

Fermeture du canal pour une utilisation ultérieure. Cette 
instruction est indispensable pour forcer le canal a se 
“vider" complètement en fin de lecture. L'oubli de cette 
instruction pourrait provoquer le non chargement des 
dernières données dans les variables Z(1,]). 


160 - 170 

Ces deux instructions permettent de bloquer le programme 
afin de laisser à l'opérateur le loisir d'observer 
l'affichage des données. 


#** 200 - 230 
Boucle en I permettant de bâtir les caractères 
utilisateur GR$(I) et de les afficher pour contrôle. 


HRK EkÉXEÉ 


Cette méthode de stockage de données est très générale, 
Elle n'est pas limitée au stockage des variables numériques. On 
peut stocker des chaînes de caractères de la même façon par les 
instructions PRINT # 1. Ce n'est qu'à la relecture du fichier que 
la valeur lue sera chargée dans une variable numérique ou dans 
une variable chaîne de caractères. 


I1 faut bien comprendre que les valeurs sont chargées dans 
le fichier sous forme de chaîne de caractères, une valeur 
numérique étant représentée par la suite des caractères chiffres 
qui la compose (ainsi que le point décimal,le signe - et les 
caractères € ou D précédant éventuellement l'exposant). 


A la relecture, l'instruction INPUT #1,2Z$ interprètera la 
valeur lue comme une chaîne et la placera dans la variable 
chaîne Z$. Par contre l'instruction INPUT #1,2 interprètera la 
valeur lue comme une variable numérique (si la chaîne de 
caractères lue est interprètable comme telle), et la placera dans 
la variable numérique Z. 


Nous remarquerons que nous avons séparé en deux phases 
nettement distinctes le programme d'utilisation du fichier, une 
phase de lecture des données avec leur chargement dans la 
variable Z(J,1) et une phase de définition des caractères 
utilisateur GR$(I). Cette méthode est plus claire mais elle a 
l'inconvénient de charger inutilement la mémoire centrale avec le 
tableau des Z(J,1). 


Nous proposons donc la version améliorée suivante du 


programme d'utilisation du fichier (la partie affichage des 
caractères utilisateur a été également modifiée). 
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18 CLS:LOCATE 7,12: 
PRINT "NOM DU FICHIER DE STOCKAGE" 


20 LOCATE 15%: 16:INPUT F$:CLS 
30 OPEN "I":1,F$ 

40 INPUT #1, NG:POKE 24575: NG 
50 CLEAR , ; NG+1 


60 NG=PEEK(24575) 


108 FOR I=@ TO NG 
110 FOR J=1 TO 8:INPUT #1, ZCJD:NEXT J 


120 DEFGR$(1)=Z(1),262); Z(S); Z(4);, 
Z(5):,Z(6):207), 2Z(8) 


130 NEXT I 
140 CLOSE 


200 I1=0:A$S=CHRS(22) :FD$S=AG+". "I FGS=<AS+", 

210 CLS:LOCATE 19:95, DE PRINT I 

220 COLOR 1:LOCATE 29: 18: PRINT GR$#(I) 

230 COLOR G:LOCATE 10: 15:ATTRB 1, @:PRINT GR$CI) 
2840 LOCATE 20; 152:ATTRB 1; 1: PRINT GR$(I) 


250 LOCATE 39; 15:ATTRE @, 1: PRINT GR$(1I): 
COLOR 4:ATTRB Q,0 


260 LOCATE 5,18: 
PRINT "CARACTERE PRECEDENT TAPEZ "5FG$ 


270 LOCATE 5, 20: 
PRINT "CARACTERE SUIVANT TAPEZ "3FD$ 
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CES 


280 LOCATE 5: 22: 
PRINT "CLOTURE TAPEZ "35: 
COLOR 1, 3:PRINT "STOP":COLOR 4 


290 R$S=INPUTS$(1) :R=ASCCRS) 


300 ON 1-CR=8) -2K(R=9) -3#(R=2) 
GOTO 290, 500, 600, 700 


500 I1=1-1:1F I=-1 THEN 1=0 


510 GOTO 210 


600 I=1+1:1F I=NG+1 THEN I=NG 


610 GOTO 210 


700 CLS 


10 - 60 

Ces instructions sont identiques, à des détails près, aux 
instructions 10 à 70 du programme précédent. Seule 
l'instruction OIM (étiquette 80) n'est pas reprise puisque 
nous n'utilisons plus la variable Z(J,1). 


100 - 200 

La boucle en J, à l'intérieur de la boucle en I (de 0 à NG 
pour la construction des NG+1 caractères utilisateur), 
permet de recueillir les huit valeurs Z(]J) caractéristiques 
du caractère  GR$(I). La variable Z(J) n'a pas été 
dimensionnée puisque J varie seulement de 1 à 8. 


200 
a/ Initialisation de la variable I à zéro. 


b/ c/ et d/ Construction des caractères Flèche Oroite F0$ 
et Flèche Gauche F6$. 


210 - 250 

Affichage du numéro I du caractère GR$(I) en ligne 5 
écran, du caractère en Rouge en ligne 10 et du caractère en 
Noir avec les trois tailles doubles en ligne 15. 
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rire 260 - 280 
Affichage de trois messages à l'écran proposant à 
l'opérateur de lire les caractères suivant ou précédent ou 
de clôturer. 


va 290 - 300 
Branchement aux instructions 500 (caractère précédent, 
Flèche Gauche R = 8), 600 (caractère suivant, Flèche Oroite 
R = 9), 700 (clôture, R = 2) ou 290 (erreur de frappe). 


“tk 500 
a/ Le caractère précédent ayant été demandé par 
l'opérateur, I est décrémenté de 1. 


b/ Si I prend, après décrémentation la valeur interdite 
-1, LI est remis à zéro. 


ki 610 
Branchement en 210 pour affichage du nouveau caractère. 


#3 600 - 610 
Instructions analogues aux précédentes pour passer au 
caractère suivant (I ne peut dépasser la valeur limite NGC). 


Ac 700 
Instruction de clôture effaçant l'écran. 


Nous allons maintenant examiner la deuxième méthode de 
stockage des données sous forme de fichier binaire. 


I1 est nécessaire pour effectuer ce type de stockage de ne 
disposer que de données numériques de valeurs comprises entre OÙ 
et 255 ou de données chaînes de caractères préalablement 
transformées en suites de codes ASCII (nous verrons ce dernier 
cas plus loin). 


. Dans notre cas, les données répondent bien à cette 
obligation puisque les variables Z(J,I) sont comprises, par 
construction, entre 0 et 255, 
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Nous chargerons donc les mémoires "hautes" disponibles avec 
les valeurs des Z(J,I). 


Par mémoires hautes nous entendons les mémoires situées 
"au-dessous" de la mémoire d'adresse 49151 (BFFF en hexadécimal}), 
pour les machines équipées de la mémoire additionnelle de 16K, ou 
Mau-dessous" de la mémoire d'adresse 32767 (7FFF en hexadécimal}), 
pour les machines sans mémoire additionnelle. 


Ce chargement s'effectuera à l'aide de l'instruction PÜKE, 
déjà vue plus haut, en faisant décroître les adresses de 
stockage à partir de l'adresse maximale. 


Il est alors nécessaire de "protéger" ces mémoires contre 
une utilisation intempestive par le programme BASIC. 


Les programmes BASIC stockent en effet les variables 
chaînes de caractères (calculées par concaténation ou par toute 
fonction comme LEFT$, RIGHTS, MID$, STR$ ou CHR$) à partir de la 
plus haute mémoire disponible. Pour interdire l'utilisation des 
mémoires hautes nous utiliserons l'instruction CLEAR ,M -(M.Ref 
32)- où M est l'adresse de la mémoire la plus haute laissée à la 
disposition de l'interprèteur BASIC pour stocker les chaînes. 


Nous placerons le nombre NG en 49151, et les valeurs des 
Z(J,1) en décroissant à partir de 49150. Comme il y a 128 x B - 
1024 valeurs à stocker au maximum, l'adresse la plus basse de 
stockage est 48127. Nous réserverons donc ces mémoires par une 
instruction CLEAR ,4B126, 


Le programme de création des caractères utilisateur est 
alors modifié comme suit : 


10 CLEAR.4000, 48126; 5 


6000 CLS:LOCATE 7, 12: 
PRINT “NOM DU FICHIER DE STOCKAGE" 


601@ LOCATE 15, 16: INPUT F$ 
6020 BEEP:CLS:LOCATE S, 12: 
PRINT "METTRE LES TOUCHES DU LECTEUR": 


LOCATE 7,14:PRINT “EN POSITION "5 :COLOR 1: 
PRINT “ENREGISTREMENT '":COLOR 4 
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ax 


#Xk 
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6030 LOCATE 20; 22:PRINT “TAPEZ “3:COLOR 0, 3: 
PRINT "ENTREE "“:COLOR 4, 6: BEEP 


6040 R$S=INPUT$(1):IF ASC CR$) (0 13 GOTO 6040 
6500 CLS:M0'=49151:POKE MD',NG 


6510 LOCATE 6, G:PRINT "SAUVEGARDE DES "5NG+1:: 
“ CARACTERES" 


6520 FOR 1=0 TO NG 

6530 COLOR 1:PRINT I:COLOR 4 

6549 FOR J=i TO 8 

6559 POKE MD'-8%1-J, ZCJ, ID:PRINT ZCJ,1)3 
6560 NEXT J:PRINT:NEXT I 

6570 SAVEM F$,48127, 49151,0 

6580 GOTO 3000 

10 


L'instruction 10 a été modifiée de façon à faire la 
réservation des mémoires hautes au delà de la mémoire 48126. 


On notera que la valeur du premier paramètre (4000) de 
CLEAR, est la réservation des places mémoires pour le calcul 
des chaînes de caractères, que la valeur du second 
paramètre (48126), est l'adresse de la plus haute mémoire 
utilisable par l'interprèteur BASIC et que la valeur du 
troisième paramètre (3), est la réservation de places pour 
ies trois caractère graphiques utilisés dans le programme. 


6000 - 6040 


Ces instructions sont les mêmes que dans le programme de 
stockage développé plus haut. 


6500 
a/ Effacement de l'écran 


b/ La variable MO! stocke l'adresse de la mémoire 49151. 


XX 


Il est nécesseire de rajouter le symbole ! derrière le nom 
de variable MO pour préciser que MO est une variable simple 
précision (l'instruction 20 du programme de création des 
caractères -(M.Bas 68)- impose à toutes les variables 
d'être des variables entières par DEFINT A-Z). Or 49151 est 
une valeur trop grande pour être stockée dans une variable 
entière (valeur maximale 32767 -(M.Ref 14)-). 


c/ La mémoire d'adresse 49151 est chargée avec la valeur 
NG. 


6510 
Identique à l'instruction 6510 du précédent programme. 


6520 - 6560 

Boucles en I (variant de 0 à NG) et en J (variant de 1 à 
8), pour charger les valeurs des Z(J,1). La valeur Z(J,1) 
est placée dans la mémoire d'adresse MO!-8*I-J, soit 49150 
pour la première valeur Z(1,0) et 48127 pour la dernière 
valeur possible Z(8,127) 


Les valeurs de I sont en outre affichées en Rouge en début 
de ligne et les huit valeurs des Z(J,1) affichées en Bleu à 
la suite, de façon à pouvoir suivre le déroulement du 
programme. 


6570 

Sauvegarde, dans le fichier binaire dont le nom est dans 
la variable F$, des mémoires dont les adresses sont 
comprises entre 48127 et 49151. Le O0 figurant comme dernier 
paramètre est indispensable (le dernier paramètre est 
l'adresse d'appel du sous-programme écrit en binaire si la 
sauvegarde porte sur un programme écrit en langage machine, 
ce qui n'est pas le cas ici). 


On notera que l'instruction de sauvegarde est SAVEM et non 
SAVE comme pour un programme BASIC, 


Une fois le programme exécuté le fichier figure sur la 
cassette sous le nom stocké dans F$ suivi du suffixe .BIN 


: 


qui précise que nous avons affaire à un fichier binaire. 


OA OR OX 
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Il 


nous reste maintenant à étudier le programme 


d'utilisation du fichier. 


En 


dernier 
4 3 N : 
améliorer la présentation des caractères graphiques. 
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10 


20 


30 


40 


100 
110 
120 


130 
140 
150 


160 


170 


180 


190 


200 


voici un exemple très simple. On pourra s'inspirer du 
programme d'utilisation développé plus haut pour 


CLEAR , 48126, 1 


CLS'LOCATE 7,12: 
PRINT “NOM DU FICHIER DE STOCKAGE" 


LOCATE 15,16: INPUT F$ 


LOADM F$ 

MO=49151 : NG=PEEK (MO) 

FOR I1=0 TO NG 

CLS:COLOR 1:LOCATE 19, 3: 

PRINT I3:COLOR 4:LOCATE 0,7 

FOR J=i TO 8 
ZCJ)=PEEKCMO-8%x1-J) : PRINT ZCJ) 

NEXT J 
DEFGR#(@)=Z(1):ZC2), ZC3); ZC&)» 

Zt5), 26), 2Z(7);2(8) 

LOCATE 20; 15: COLOR 1:PRINT GR#(@) : COLOR 4 
LOCATE 20, 22:PRINT "TAPEZ ":: 

COLOR @, 3: PRINT "ENTREE":COLOR 4,6 
R$=INPUT$(1):1F ASCCRS) () 13 GOTO 190 
NEXT I:CLS 


Lx 


Lis. 


Lis. 


XAA 


Lis 


ic 


AAX 


Lei 


10 

Protège les mémoires, de l'adresse 48126 à l'adresse 
491517, contre une utilisation par l'interprèteur 8ASIC et 
réserve une place pour un caractère graphique. 


On peut s'étonner de ne voir réserver qu'une seule place 
pour les caractères graphiques, En réalité nous bâtirons le 
caractère GR$(0) à l'aide des huit données du caractère I, 
sur appel de ce caractère et nous afficherons le caractère 
GR$(O). Il est donc nécessaire de ne réserver qu'une place 
pour GR$(0). 


20 - 30 
Chargement par l'opérateur, du nom du fichier de stockage 
des données dans la variable chaîne de caractères F$. 


40 
Charge le fichier dont le nom est stocké dans F$. 


On notera que l'instruction est LOAOM et non LOAO comme 
pour les fichiers BASIC. 


100 
Le contenu de la mémoire d'adresse MO = 49151 est le 
nombre NG de caractères stockés. 


110 
Lancement d'une boucle en I (de 0 à NG) 


120 - 150 

Boucle en  J permettant de lire les huit nombres 
caractéristiques du caractère I. On notera que la formule 
donnant l'adresse de la mémoire de stockage de Z(J) est la 
même que celle du programme de création. 


160 


Définition du caractère GR$(0) avec les nombres Z(1), 
...Z(B) du caractère I. 


170 
Affichage en Rouge du caractère GR$(0). 


180 - 200 
Instructions permettant à l'opérateur de commander 
l'affichage du caractère suivant. 


Une fois le dernier caractère affiché l'écran est effacé. 
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Cette méthode de stockage de données n'est bien entendu 
valable que pour les variables dont la valeur est comprise entre 
0 et 255, 

Il est toutefois possible de stocker des chaînes de 
caractères à condition de représenter chaque caractère par son 
numéro de code ASCII et de séparer les chaînes par un caractère 
spécial, par exemple le caractère "ENTREE" de numéro de code 13, 
La relecture des chaînes en mémoire se fait alors par des 
instructions PEEK successives jusqu'à ce qu'une valeur 13 soit 
rencontrée. Chaque valeur lue est bien entendu transformée en 
caractère par la fonction CHAÿ. Voici deux courts programmes 
exemples de chargement et de relecture d'un fichier de chaînes 
de caractères. 


10 CLEAR , 49000 


20 DATA Lundi; Mardi,Mercredi;Jeudi;: 
Verdredi;Samedi; Dimanche 


30 M=49151 

4@ FOR I=i TO 7 

50 READ 7Z$ 

6Q FOR J=1 TO LEN(Z#) 

70 POKE M, ASCCMID# CZ; J, 1) > :M=M-1 

8@ NEXT J 

90 POKE M, 13:M=M-1 

100 NEXT I 

110 POKE M, @ 

120 CLS:LOCATE 2, 12: 
PRINT "Le fichier est stocké par la commande"! 
LOCATE 5, 14:PRINT "SAVEM "5 CHR#&C34 ) : 
"JOURS"; CHR$C3S4) 5", "5M5", 49151, ©" 


130 SAVEM "JOURS", M, 49151, @ 
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Lis) 


Lis) 


Lis) 


Los 


Lens 


10 
Les mémoires de 49000 à 49151 sont protégées. 


20 
Liste de chaînes de caractères que l'on s'apprète à 
stocker dans le fichier binaire. 


30 
Initialisation à 49151 de la mémoire M de stockage des 
données. Les données seront placées dans les mémoires dans 
le sens décroissant des adresses. 


40 

Initialisation d'une boucle en I (de 1 à 7) destinée à 
lire les sept chaînes de caractères placées dans les OATA 
sous l'étiquette 20. 


60 - 680 
Boucle en J destinée à analyser caractère par caractère la 
chaîne 2$, précédemment lue dans les DATA, 


J varie de 1 à la longueur de la chaîne de caractères Z$. 
La fonction MID$(Z$,J,1) isole le caractère de rang J dans 
Z$ -(M.Ref 130)-, et la mémoire M est chargée avec le numéro 
de code ASCII (fonction ASC -(M.Ref 111)-) de ce caractère 
par la fonction POKE -(M.Ref 86)- 


Après chaque chargement l'adresse M de la mémoire de 
stockage est décrémentée de 1, 


90 

Une fois chargés les numéros de code ASCII de tous les 
caractères d'une chaîne, la mémoire d'adresse suivante est 
chargée avec le code de séparation de chaînes, c'est-à-dire 
le code 13 (touche ENTREE). L'adresse M de la mémoire de 
stockage est bien entendu décrémentée pour le stockage du 
premier caractère de la chaîne suivante, 


100 

Fermeture de la boucle en I. 

110 

Chargement, dans la dernière mémoire d'adresse M, du code 
(e de fin d'enregistrement (nous avons choisi O0 


conventionnellement, sachant qu'aucun caractère n'a zéro 
comme code ASCII). 
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Lria 1 20 
Message permettant à l'opérateur de connaître les bornes 
de stockage du fichier "JOURS". 


On notera la façon dont sont représentés les guillemets 
autour du mot JOUR dans la seconde chaîne affichée. On ne 
peut en effet mettre des quillemets dans une chaîne 
autrement qu'en les nomant par leur numéro de code ASCII 
(34). 


Une fois le programme exécuté, on constate que l'adresse 
de chargement du code Ü de fin d'enregistrement est 40099. 
On a donc été large en réservant en 10 les mémoires à partir 
de 49000. Il aurait suffit de compter les données sur nos 
doigts pour prévoir ce résultat ! 
*#* 130 


Commande de stockage du fichier binaire JOURS entre M (= 
49090) et 49151. 


HOUR EX 


11 nous faut maintenant bâtir le programme de relecture. 
En voici un exemple qui n'a pour but que de montrer la technique 
de récupération des données dans les mémoires par des 
instructions PEEK,. 

10 CLS:CLEAR : 49000 

20 LOADM "JOURS" 

30 M=49151 

4O 2Z$="" 


50 U=PEEKCM):M=M-1: 
ON i-(U=13)-2*CR=0) GOTO 60, 100, 200 


ED 245=2$+CHR$ CU) 
70 GOTO 50 
100 PRINT 2$:GO0OT0 40 


200 END 
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Las 


Lis) 


Lys 


rx 


10 


Efface l'écran et réserve les places mémoire entre 49000 
et 49151. 


20 
Chargement du fichier binaire JOURS entre 49099 et 49151. 
Ces adresses sont mises en mémoire sur la cassette au moment 


du chargement et n'ont pas à être répétées à la lecture par 
LOAOM. 


On notera que le nom de fichier peut être omis, auquel 
cas le premier fichier binaire rencontré sera chargé. Il 
faut dans ce cas positionner correctement la bande 
magnétique de la cassette. 


30 
Initialisation de l'adresse M de relecture à 49151. 


40 
Initialisation à "zéro" de la chaîne de caractères 2% 
dans laquelle on va stocker les chaînes relues. 


50 « 

a/ U est la valeur numérique contenue dans la mémoire M 
(c'est-à-dire un numéro de code ASCII ou le code 13 de 
séparation ou le code Ü de fin de fichier). 


b/ L'adresse M est décrémentée de 1. 


c/ Si la valeur U est égale à 13 (séparation de chaîne), 
branchement en 100. Si la valeur de U est égale à O (fin 
d'enregistrement), branchement en 200. Dans les autres cas 
(U est alors un numéro de code ASCII), branchement en 60. 


60 

U étant un numéro de code ASCII, le caractère 
correspondant CHR$(U) -(M.Ref 113)- est concaténé derrière 
2$. 


70 
Branchement en 50 pour la lecture de la mémoire suivante 
(dans le sens des adresses décroissantes). 


100 


U ayant la valeur 13, la variable chaîne de caractères Z$ 
contient toute la chaîne stockée. 
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La valeur de Z$ est alors affichée pour contrôle et le 
programme branché en 40 pour le chargement d'une autre 
chaîne dans Z$. 


On s'est contenté de présenter les chaînes les unes 
derrière les autres sans les stocker dans une variable 
indicée Z$(I). Nous laissons au lecteur le soin de modifier 
le programme dans ce sens (attention au dimensionnement du 
tableau Z$(I) par OIM dans le cas où le nombre de chaînes 
stockées est supérieur à 10). 


On remarquera toutefois qu'il est dommage de disposer d'un 
premier stockage des chaînes entre 49099 et 49151 et de 
créer un nouveau stockage dans le tableau Z$(I1). 11 est 
préférable, dans la mesure où il n'est pas nécessaire de 
disposer de la chaîne numéro I, indépendemment des autres, 
de se contenter du premier stockage. 


**% 200 
U étant égal à 0, la fin de fichier a été détectée et le 
programme est stoppé. 


RH R EX X 


Le lecteur dispose maintenant des éléments lui permettant 
de voir les avantages et les limitations des deux types de 
stockage de données sur cassette. 


x Il prendra garde à placer ces fichiers sur la cassette 
juste après le programme d'utilisation de façon à y accéder 


rapidement et sûrement après chargement du programme et son 
exécution. 


KR OK XX 
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On notera enfin qu'un fichier de données (caractérisé par 
le suffixe .DAT), ne peut être chargé directement par LOAD et 
donc ne peut être recopié sur une autre cassette. 


La seule façon de charger le fichier données sur une autre 
cassette est d'exécuter à nouveau le programme de création du 
fichier. 


Cette remarque suggère une méthode pour protéger les 
programmes contre des recopies pirates ! 


Une partie des données nécessaires au fonctionnement du 
programme est stockée dans un fichier données dans un ordre 
arbitraire, connu du seul auteur. La relecture du fichier ne peut 
se faire dans le programe que dans l'ordre d'écriture. Si le 
programme est sauvé sur la cassette par la commande SAVE "nom du 
fichier",P -(M.Ref 167)-, c'est-à-dire sous forme protégée, on 
sait que le programme est exécutable mais non listable. Le 
“pirate éventuel ne peut alors connaître la structure du 
fichier et il ne peut donc en reconstituer le programme de 
création nécessaire pour le recopier sur une autre cassette. 


On prendra garde toutefois à ne pas utiliser d'instructions 


PEEK et POKE dans le programme, car ces instructions ne peuvent 
figurer dans un programme protégé. 
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11 


Calendrier 


Nous allons nous donner les moyens d'établir un programme 
affichant à l'écran le calendrier de l'un des mois d'une année 
quelconque comprise entre 1901 et 2099, Il est possible de 
généraliser à une année hors de ce domaine, mais les calculs sont 
un peu plus compliqués et en pratique la période choisie est 
suffisante pour les besoins courants. 


Pourquoi cette période ? Simplement parce que toutes les 
années divisibles par quatre sont bisextiles, même 2000 alors 
que 1900 et 2100 ne le sont pas. 


I1 suffit pour établir notre calendrier, de compter le 
nombre N de jours écoulés entre le premier du mois demandé et le 
premier Janvier 1901. Si le reste de la division de N par 7 est 
nul, c'est que le premier du mois tombe sur le même jour de la 
semaine que le premier Janvier 1901. Sinon le reste de 1la 
division par sept donne le décalage. 


Mais direz-vous, il nous faut connaître quel jour tombait 
le premier Janvier 1901 ! 


Inutile en réalité, il suffit de recaler la formule en 
ajoutant à N une constante, comprise entre 0 et 6, de telle sorte 
que l'on obtienne un résultat correct pour un jour connu, par 
exemple Oimanche pour le premier Mai 1983. 


Moyennant quoi il est possible de savoir que le premier 
Janvier 1901 était un Mardi ! 
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Le nombre N de jours compris entre le premier Janvier 1901 
et le premier du mois M (M variant de 1 à 12) est donné par : 


N = INT ( (A - 1901) * 365.25 + Am(M) + 1 ) 


où NM(M) est le nombre de jours cumulés entre le premier Janvier 
et le dernier jour du mois précédent le mois M (en rajoutant .25 
jours à partir de Mars et en comptant Février pour 28 jours, ce 
qui permet de tenir compte des années bisextiles}). Les valeurs de 
NM(N) sont facilement calculables une fois pour toutes et 
figureront dans une table de DATA en début de programme. 


La fonction INT(X) -(M.Ref 126)- calcule, rappelons-le, la 
partie entière de X. 


La partie technique étant claire, il nous reste à présenter 
les résultats de façon harmonieuse. 


Nous tracerons un tableau rectangulaire comportant sept 
lignes de trois lignes texte de hauteur, ce qui permet de placer 
les quantièmes du mois au centre des lignes tableau. 


La première colonne du tableau contiendra les sept jours de 
la semaine en commençant par Dimanche. 


Un mois de 31 jours peut s'étendre sur six semaines. Par 
exemple Octobre 1983 commence un Samedi et se termine un Lundi, 
Notre tableau comportera donc six colonnes de cinq caractères de 
large. 


Nous tracerons en outre les verticales de séparation entre 
les colonnes du tableau à des abscisses non multiples de huit de 
façon à pouvoir les tracer sur l'imprimante thermique (les points 
d'abscisses multiples de huit ne sont pas reproduits sur 
l'imprimante thermique lorsque l'on recopie l'écran par la 
commande SCRÉENPRINT). 


Nous déterminerons donc le jour de la semaine du premier du 
mois et placerons un 1 dans la première colonne à la ligne 
correspondante. 
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Nous remplirons- ensuite les cases suivantes, de haut en 
bas, avec retour en haut de la colonne suivante, par les chiffres 
de 2 à 31 (ou à 28, 29, 30 suivant les mois et les années). 

Ces principes étant admis voyons la réalisation pratique et 
les améliorations que l'on peut apporter au fur et à mesure de la 
mise au point. 


Le programme comporte tout d'abord un bloc de chargement de 
données : 


10 CLS:SCREEN 4, 6,6 
20 EF$=" “":S0S$="SORE" 
SO DIM NMC12), M$C12) 


48 DATA @, 31, 59. 25, 90. 25, 120. 25, 151. 25 181. 25; 
212.25; 245. 25, 273. 251 304. 25, 334. 25 


S0 FOR I=1 TO 12:READ NMCI)D :NEXT 

60 DATA JANVIER, FEVRIER, MARS, AVRIL; MAI; JUIN, 
JUILLET; AOÛT; SEPTEMBRE, OCTOBRE, 
NOVEMBRE ; DECEMBRE 

7@ FOR I=1 TO 12:READ M$#(1):NEXT 


80 DATA Dimanche; Lundi,Mardi, Mercredi; 
Jeudi, Vendredi; Samedi 


90 FOR I=i TO 7:READ J$cI):NEXT 


100 SC=0: R=O 


10 
a/ Efface l'écran 


b/ Impose la couleur Bleu (4) pour les caractères et la 
couleur Cyan (6) pour le fond et l'entourage. 


Tir 20 


a/ La variable ÆEF$, composée de dix espaces servira de 
chaîne d'effacement en cas d'erreur de frappe. 
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Ya 


Lions 


Ye 


YA k 


LE ss 


b/ La variable 505$, composée d'un SOL et d'un RE sera 
utilisée comme signal d'alarme ("PIN-PON"), avec 
l'instruction PLAY -(M.Ref 201)-, en cas d'erreur de frappe. 


30 

Dimensionnement à 12 valeurs de la variable NM(I), nombre 
de jours cumulés dans les mois précédents le mois I et de la 
variable chaîne de caractère M$(I), nom du mois I. 


40 - 50 
Chargement des 12 valeurs de la variable AM(I). 


60 - 70 
Chargement des noms de mois dans les variables M$(I). 


80 - 90 
Chargement des noms de jours de la semaine dans la 
variable J$(I). 


100 
Initialisation à zéro des deux indicateurs SC et R. 


SC sera posé égal à -1 lorsque la recopie du calendrier 
sur l'imprimante thermique aura été demandée (SC pour 
SCreenprint). 


R sera posé égal à -1 lorsque l'opérateur demandera 
l'impression des douze mois de l'année (R pour Répétition). 


ON OR Ze OX 


Ce bloc de données étant constitué, passons au recueil de 


l'année et du mois entrés par l'opérateur et au calcul du jour de 
semaine du premier du mois. 
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500 CLS:LOCATE 15: 25 PRINT "CALENDRIER" 


510 LOCATE 10, 6: PRINT “Annee :": 
LOCATE 10, 8: PRINT "Mois :" 


520 LOCATE @, 20: PRINT 
“Pour imprimer une annee compiete tapez": 
LOCATE ©, 22: 
PRINT "un numero de mois egal a 15" 


530 K=1:LOCATE 18,6: PRINT EF#:LOCATE 18,6: 
LINEINPUT Z$:GOSUB 5200: 
IF E THEN A=Z:A$=7$ ELSE PLAY SOS#$:GOTO 530 
540 IF A(1901 OR À) 20993 THEN PLAY S0S$:GDT0 530 
550 K=2:LOCATE 18, 8: PRINT EF$:LOCATE 18,8: 
LINEINPUT Z$:GOSUB 5000: 
IF E THEN M=Z ELSE PLAY S0OS$:GOTO 550 
560 IF M)13 OR M=@ THEN PLAY SOS$:G0OTO 550 
570 IF M=13 THEN R=-1:SC=-1:M=1 


580 GOSUB 4DBB:NJ=NN:M=M-1:IF M=0 THEN NJP=31:M=1 
ELSE GOSUB 4000: NJP=NN: M=M+1 


608 N=INT((A-1981)#365. 25+NMCM) +1) +1 


610 IF N)32767 THEN N=N-32767:GO0T0 610 


624 J=N MOD 7 


4008 NN=S1+(M=4) +(M=6) +(M=9)+CM=11)+ 
(M=2)#(3+CÀA MOD 4=0) ) : RETURN 


5008 L=LENCZH) :E=-1+CK=1)#CL 0 4)+CK=2)*%CL) 225 
IF NOT E THEN RETURN 


5010 FOR I=1 TO L:U=ASCCMIDSCZ$, I, 12): 
IF U(48 OR U)57 THEN E=D:RETURN ELSE NEXT 


5028 Z=VAL(Z#) :RETURN 


Les 500 


Affichage de "CALENDRIER" au centre de la ligne 2 écran, 
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510 
Affichage de "Année :" et de "Mois :" en lignes 6 et 8 


520 
Affichage en lignes 20 et 22 du message “Pour imprimer une 
année complète tapez un numéro de mois égal à 13" 


Ce "raffinement" a été ajouté, par l'auteur, une fois le 
programme mis au point. La commande ainsi prévue permet 
d'éditer le calendrier complet d'une année sans avoir à 
répéter l'année et la succession des mois. Ce n'est qu'après 
utilisation du programme que le besoin d'une telle 
possibilité est apparu. 


530 
Le numéro de l'année est entré par l'instruction LINEINPUT 
et chargé dans la variable chaîne de caractères Z$. 


Le sous-programme 5000 est destiné à tester la validité de 
la chaîne ainsi entrée. Il vérifie que la chaîne comporte 
4 caractères qui ne sont que des chiffres à l'exclusion de 
tout autre caractère. 


Comme ce sous-programme 5000 est également utilisé pour 
tester en 550 la validité de la chaîne entrée pour le mois 
(longueur de chaîne 1 ou 2), il est nécessaire de préciser 
avant l'appel par GOSUB 5000 que l'on teste l'année et non 
le mois. Le paramètre K est posé égal à 1 à cet effet. Nous 
en verrons l'utilisation dans le sous-programme 5000, 


Si la chaîne 25 est reconnue acceptable, le 
sous-programme SO00 pose le paramètre E égal à -1, une 
erreur conduisant à E = 0. 


Dans ces conditions si E est égal à -1 (Vrai), la 
condition IF E est vérifiée: la variable À est alors posée 
égale à Z (valeur numérique de Z$ calculée dans le 
sous-programme S000) et la variable A$ est posée égale à Z$. 


Dans le cas contraire (erreur) l'instruction ELSE provoque 
le signal sonore d'erreur (PLAY 505$) et renvoie au début de 
l'instruction S30. C'est dans ce cas que la deuxième et la 
troisième instructions de 530 sont utiles, puisqu'elles 
effacent la chaîne refusée. 


XX 


Ye 


YA x 


540 

Si la valeur A (année) n'est pas comprise dans les limites 
de validité (1901 et 2099) le signal d'erreur est "joué" par 
PLAY SDS$ et le programme rebranché en 530 pour effacement 
de la valeur affichée et nouvelle lecture de donnée. 


550 

Ces instructions sont analogues aux instructions de 530. 
Elles sont destinées à recueillir le numéro du mois. On 
signale au sous-programme S50D0 que c'est un numéro de mois 
qui est à tester en posant K = 2. 


560 
Instruction analogue à 540 pour vérifier que le numéro de 
mois est compris entre 1 et 13. 


N'oublions pas que le numéro 13 est la commande 
d'impression du calendrier pour les douze mois de l'année. 


570 

Si M est égal à 13 le paramètre R (Répétition) est posé 
égal à -1. C'est cette valeur qui provoquera la répétition 
de l'impression pour les douze mois de l'année. 


En outre le paramètre SC (SCreenprint) est posé égal à -1. 
C'est cette valeur qui provoquera le branchement sur 
l'instruction d'impression. 


Enfin le numéro de mois est remis à 1 pour commencer le 
calendrier au mois de Janvier. 


580 
a/ Branchement au sous-programme 4000 qui calcule le 
nombre de jours NN du mois M. 


b/ Le nombre de jours du mois M est stocké dans la 
variable NJ. 


c/ Le numéro du mois est décrémenté de 1 pour calculer le 
nombre de jours du mois précédent. 


d/ Si M ainsi décrémenté, est nul, c'est que l'opérateur a 
demandé le calendrier de Janvier. Le nombre de jours du mois 
précédent NJP est donc 31. Le numéro du mois demandé est 
alors rétabli à sa valeur initiale 1. 
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Si M n'est pas nul alors NJP est calculé par le 
sous-programme 4000 (avec M égal au numéro du mois 
précédent). Enfin le numéro du mois est rétabli à sa valeur 
initiale en incrémentant M de 1. 


Nous verrons plus loin pourquoi il est nécessaire de 
calculer le nombre de jours NJP du mois précédent. 


600 

N=INT((A-1901)*365.25+NM(M)+1)+Q est le nombre de jours 
écoulés entre le premier du mois demandé et le premier 
Janvier 1901 à une constante additive Q près. 


Nous choisirons la constante Q de telle sorte que le reste 
de la division de N par 7 pour le Premier Mai 1983 (qui est 
un Dimanche) soit égal à zéro. Nous conviendrons en effet 
par convention que Dimanche est le jour 0 de la semaine. On 
constate que la valeur de Q est 1, d'où l'instruction 600. 


610 - 620 

La fonction Modulo (MOD) -(M.Ref 19)- n'est applicable 
qu'aux nombres inférieurs à 32767. Toute tentative 
d'utilisation de MOD avec un nombre supérieur à 32767 se 
traduit par une erreur OV (OVerflow, dépassement de 
capacité). 


Il se trouve que 32767 est un multiple de 7 
(32767-4681x7). Avant d'utiliser la fonction MOD sur N (qui 
atteint la valeur 72655 pour Oécembre 2099), nous 
diminuerons donc N de 32767 autant de fois que nécessaire 
pour obtenir une valeur inférieure à 32767. C'est le but de 
l'instruction 610. 


L'instruction 620 fournit alors le reste J de la division 
de N par 7. 


J est ainsi le numéro du jour de la semaine (0 pour 
Dimanche, 6 pour Samedi) du premier jour du mois. 


4000 
Le sous-programme 4000 calcule le nombre de jours du mois 
M (M = 1 pour Janvier, M = 12 pour Décembre). 


Les mois d'Avril (4), Juin (6), Septembre (9) et Novembre 
(11) n'ont que 30 jours et Février n'a que 28 jours ou 29 
les années bissextiles (dans ce cas A est divisible par 4 et 
A MO0 4 est nul). 


A 


La formule donnant NN soustrait 1 de 31 lorsque les 
variables logiques (M = 4),..., (M=11) sont Vrai (-1), 
c'est-à-dire pour Avril, Juin, Septembre et Novembre. 


Elle soustrait 3 de 31 pour le mois de Février, la 
variable logique (M-2) étant alors Vrai et seulement 2 pour 
le mois de Février des années bissextiles puisque la 
variable logique (A mod 4-0) est Vrai et vaut alors -1. 


Enfin NN vaut 31 pour tous les autres mois. 


5D00 

a/ L est la longueur de la chaîne de caractères captée en 
530 (alors l'indicateur K est égal à 1 et Z$ est le numéro 
de l'année) ou en 550 (alors l'indicateur K est égal à 2 et 
2$ est le numéro du mois). 


b/ Le signal d'erreur E est égal à zéro dans l'un des deux 
cas suivants! 


- K est égal à 1 (la variable logique (K=1) vaut -1,lrai} 
ET Z$ n'a pas quatre caractères (la variable logique 
(L()4) vaut -1, Vrai). 

Dans ce cas (K=1)*(L()4) vaut 1 et E est nul. 

- K est égal à 2 (la variable logique (K=2) vaut -1,Vrai) 

ET 2$ a plus de deux caractères (la variable logique 


(L)2) vaut -1, Vrai). 


Dans ce cas (K=2)*(L)2) vaut 1 et E est nul, 
Oans les autres cas E vaut -1. 


c/ Si E est égal à zéro (il y a une erreur sur la longueur 
de Z$), alors E est faux et NOT E est vrai. La condition 
derrière le IF est remplie et RETURN provoque la sortie du 
sous-programme. 


La valeur E = 0 sera alors exploitée en 530 ou en 550 
comme signal d'erreur. 
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#4% 6010 
Boucle en I, variant de 1 à la longueur L de Z$, 
permettant d'explorer les caractères de 25. 


mI0$(Z$,1,1) est le caractère de rang I de Z$ et U son 
numéro de code ASCII. Si ce numéro de code n'est pas compris 
entre 48 (code de 0) et 57 (code de 9) alors le signal 
d'erreur € est mis à zéro et la sortie du sous-programme 
provoquée par RETURN, sinon la boucle d'exploration se 
poursuit. 


Lou 5020 
Aucune erreur n'a été détectée (E vaut -1) et Z est la 
valeur numérique de Z$ (on est sûr que Z$ représente un 
nombre entier puisque composé uniquement de chiffres). Il y 
a alors sortie du sous-programme avec E = -1. 


Les numéros d'année A et de mois M ont ainsi été entrés et 
l'on a vérifié qu'ils étaient dans le domaine acceptable. Le 
numéro J du jour de la semaine du premier du mois, les nombres NJ 
et NJP de jours dans le mois et dans le mois précédents ont été 
alors calculés. Il nous reste maintenant à dessiner le calendrier 
sur l'écran. 


Bien entendu les instructions 10 à 620 constituent un 8loc 
exécutable.Il faut donc le tester avant de passer à la suite du 
programme.ll suffit pour cela d'écrire des instructions 


provisoires en 700, pour afficher les valeurs de À, M, N, NJ et 
NJP. 


La partie dessin du calendrier se présente de la façon 
suivante : 


1000 CLS:LOCATE 28-CLENCMS$ CM) +5) /23 1, D: 
PRINT M$#CM)+" "+A$ 
1018 BOXF (CB: 24)-C79 47), —-2 


1020 BOXF (0; 48)-(79; 192); -4 
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1030 


1040 


1050 


1060 
1070 


1060 
1090 


2600 
2010 
z620 
2050 
2040 
2050 


2100 


Zz110 


2120 


z150 


LINE(O, 24) -(0;: 192), D: 
LINECIi, 24)-C1, 192),0 


FOR X=79 TO 319 STEP 40: 
LINECX, 24)-CX: 192); B:NEXT 


FOR Y=24 TO 192 STEP 24: 
LINECOB, Y>—-(319, Y), BI: NEXT 


COLOR 7: 1:LOCATE 1, 4:PRINT J#(1) 


COLOR 6, 3:FOR I=2 TO 7: 
LOCATE 1, 3#1+1,@: PRINT J$CI)2:NEXT 


COLOR 4,6 


IF R THEN LINE(G,80)-(319,0),0 


CC=12:LL=4+3%J 

FOR IM=1 TO NJ 

LOCATE CC, LLEPRINT USING "##"351M 
LL=LL+S:IF LL=ZS THEN LL=4s:CC=CC+S 
NEXT 


IF R GOTO 25008 


N=1:COLOR 5 


IF LL=2S THEN LL=4:CC=CC+5: 
IF CC=4Z GOTO 2200 


LOCATE CC; LLEPRINT USING "##"5:N 


LL=LL+3:N=N+1:G0OT0 2110 
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Z2@0@ COLOR 1:N=NJP:CC=1Z:LL=1+3#) 
2210 IF LL=1 GOTO 2500 
2220 LOCATE CC; LLEPRINT USING "##"3;N 


2238 LL=LL-3S:N=N-1:GOTO 2210 


2500 COLOR 4:1F SC THEN SCREENPRINT: 
IF R GOTO 3500 ELSE GOTO 3010 


35008 LOCATE 33, 24: COLOR 0, 3: PRINT "ENTREE";:: 
COLOR 4, 6:R$=INPUTS(1): 
IF ASCCR#) () 13 GOTO 3200 


35010 CLS:LOCATE 5, 12: 
PRINT "Imprimer le calendrier tapez":! 
COLOR @, 1:PRINT “1'"':COLOR 4,6 
3020 LOCATE 5, 10: PRINT “Pour'":LOCATE 5, 14: 
PRINT “Un autre calendrier tapez"; 
COLOR 6, 1: PRINT "A‘":COLOR 4,6 
3050 LOCATE 5: 16: 
PRINT "Cioturer tapez":i: 
COLOR @; 1: PRINT "C'":COLOR 4,6 
5040 R$S=INPUTS(1) 
5050 ON 1+CR$="1")#CM(13)-2#CRS="A")-3+CRS="C") 
GOTO 3040, 53100, 100, 3220 
3100 SC=-1:G0T0 1000 
5200 CLS:END 


3500 M=M+i:IF M=13 THEN CLS: 
GOTO 3070 ELSE GOTO 560 
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1000 
Affiche, après avoir effacé l'écran, le nom du mois et le 
numéro de l'année, au milieu de la ligne écran 1. 


Le curseur est effacé par le zéro en troisième paramètre 
de l'instruction LOCATE. 


Le calcul du numéro de colonne dans l'instruction LOCATE 
tient compte de la longueur du nom de mois, par LEN(M$(M)) 
et de la longueur du numéro de l'année (quatre plus un 
espace de séparation). 


1010 

Place une plage rectanqulaire, en couleur Rouge fond (-2), 
sur les dix premières colonnes, de la ligne 3 à la ligne 5 
écran. 


11 est nécessaire de colorer cette plage en couleur fond 
puisque nous allons écrire dessus la chaîne de caractères 
"Dimanche". 


1020 


Place une plage rectangulaire, en couleur Jaune fond (-4), 
sur les dix premières colonnes, de la ligne 6 à la ligne 23 
écran. 


Il est nécessaire de colorer cette plage en couleur fond 
puisque nous allons écrire dessus les chaînes de caractères 
"Lundi" à "Samedi". 


1030 

Ces deux instructions tracent deux verticales en Noir 
caractère (0) d'abscisses 0 et 1. La seconde sera la seule 
recopiée par l'instruction  SCREENPRINT (les points 
d'abscisses multiples de huit ne sont pas recopiés). 


Il est nécessaire de placer la première verticale pour 
éviter d'avoir une ligne verticale colorée en Rouge puis en 
Jaune sur le bord gauche de l'écran. 

1040 

Tracé en Noir des sept verticales de séparation des 

colonnes du tableau. 


Les abscisses sont des multiples de huit moins 1. 
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1050 
Tracé en Noir des huit horizontales de séparation des 


lignes tableau. 


1060 

Affichage dans la première colonne, première ligne du 
tableau de la chaîne de caractères J$(1), c'est-à-dire 
"Dimanche" en Blanc (7) sur fond Rouge (1). 


1070 

Affichage des jours de la semaine de "Lundi" à "Samedi" 
dans la première colonne du tableau, de la ligne 2 à la 
ligne 7 tableau, 


La couleur des caractères est Noir (0) sur fond Jaune (3). 


1080 
La couleur des caractères est ramenée au Bleu (4) sur fond 
Cyan (6). 


1090 

Si R est égal à -1 (ce qui signifie que la répétition des 
douze mois du calendrier a été demandée), alors la condition 
R derrière IF est Vrai et une horizontale est tracée tout en 
haut de l'écran. 


Ici on trouve un raffinnement qui n'a été rajouté qu'une 
fois essayé le programme. 


Lorsque l'on demande le calendrier des douzes mois de 
l'année, les tableaux correspondants à chaque mois sont 
reproduits automatiquement sur l'imprimante (l'indicateur SC 
est mis égal à -1 en même temps que R en 570 si l'opérateur 
a affiché la commande 13 pour le numéro de mois). 


Il est commde de séparer les différents tableaux par des 
horizontales, ce qui permet de plier régulièrement, en 
accordéon, la bande de papier occupée par les douze 
tableaux. 


La ligne horizontale tracée en haut du tableau joue alors 
ce rôle, une fois reproduite sur la bande de l'imprimante. 


La ss 
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Lis 


Lies 


2000 
Le premier jour du mois doit être placé en première 
colonne tableau (colonne écran CC = 12), sur la ligne 


tableau du jour J de la semaine (J = O pour le Dimanche, J = 
6 pour le Samedi). La chaîne de caractères Dimanche est 

placée en ligne 4 écran et les jours de la semaine sont 
placés toutes les trois lignes, d'où la formule donnant la 
ligne écran LL où l'on va afficher le premier jour du mis 
IM = 1. 


2010 
Ouverture d'une boucle en IM de 1 à NJ, nombre de jours du 
mois demandé. 


2020 - 2030 
Affichage de IM, en colonne écran CC, ligne écran LL. 


L'instruction PRINT USING avec une image comportant deux 
caractères dièse permet d'afficher les quantièmes du mois en 
les justifiant à droite (les chiffres des unités sont sur la 
même colonne écran, que les nombres aient un ou deux 
chiffres). 


Le numéro de ligne écran LL est ensuite incrémenté de 
trois, pour afficher le nombre IM suivant sur la ligne 
tableau du dessous. Toutefois si LL atteint 25, c'est-à-dire 
si le dernier affichage a été effectué sur la dernière ligne 
tableau (en ligne 22 écran), alors LL est ramené à 4 (ligne 
écran correspondant à la ligne tableau de Dimanche) et CC 
incrémenté de 5, de façon à inscrire les quantièmes suivants 
sur la prochaine colonne tableau (les colonnes tableau ont 5 
caractères de large). 


2040 
Fermeture de la boucle en IM. 


2050 

Les instructions de 2100 à 2230 sont destinées à compléter 
le tableau avec les quantièmes des mois précédent et 
sui vant. Il est en effet commode de disposer de ces 
renseignements complémentaires lorsque l'on ne demande que 
le calendrier d'un seul mois. Par contre ce complément est 
inutile lorsque l'on édite le calendrier complet de l'année 
(l'indicateur R est alors égal à -1). 


L'instruction 2050 courcirceuite ainsi ces instructions 
lorsque R est Vrai en branchant le programme en 2500. 
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2100 - 2130 
Après affichage du dernier quantième du mois NJ, le numéro 
de ligne écran LL a été incrémenté de 3 par l'instruction 
2030 (ou ramené à 4 si l'affichage de NJ avait été fait sur 
la dernière ligne tableau). CC et LL sont alors les 
coordonnées d'affichage du premier du mois suivant. 


Les instructions 2100 à 2130 affichent alors en Magenta 
(5), les quantièmes du mois suivant à partir de cette 
position. 


L'instruction 2120 affiche le quantième N, initialisé à 1 
en 2100 et incrémenté de 1 en 2130. 


Le numéro de ligne écran LL est incrémenté de 3 en 2130 et 
le programme branché en 2110 où LL est ramené à 4 s'il 
atteint 25 avec incrémentation de 5 pour CC. Un test sur CC 
(CC = 42) permet de détecter le remplissage de la totalité 
de la dernière colonne tableau et commande le branchement en 
2200. 


2200 - 2230 

Ces instructions permettent le remplissage du début du 
tableau avec les quantièmes du mois précédent. Voilà 
pourquoi nous avons calculé le nombre de jours NJP du mois 
précédent. 


La couleur est fixée au Rouge (1), le quantième N au 
nombre de jours NJP du mois précédent. 


NJP doit être affiché dans la case tableau au-dessus de 
la case contenant le premier du mois, c'est-à-dire en 
colonne écran CC=12 et ligne écran LL = 1 + 3 * J, puisque 
le premier jour du mois est affiché en 4 + 3 * J. 


Le quantième N est affiché en CC,LL par l'instruction 
2220, puis LL est décrementé de 3 et N de 1 en 2230, avec 
branchement en 2210 où LL est testé. Si LL est égal à 1, 
c'est que la ligne tableau Dimanche a été remplie et le 
programme est branché en 2500. 


On notera que le test sur LL est placé en 2210 avant 
l'affichage de N en 2220, pour éviter un affichage 
intempestif en ligne 1 dans le cas où le premier du mois 
tombe un Dimanche (le tableau est alors entièrement rempli à 
gauche par les quantièmes du mis demandé). 


Less 
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2500 
a/ La couleur caractère est fixée au Bleu (4). 


b/ Si SC est Vrai (-1), impression demandée, ce qui est 
automatique si le calendrier de l'année complète a été 
commandé par le numéro de mois posé égal à 13 par 
l'opérateur ou qui résulte d'un choix ultérieur de 
l'opérateur (voir instructions 3000 - 3050), alors 
l'instruction SCREENPRINT recopie l'écran sur l'imprimante 
thermique. Rappelons que cette instruction est inutilisable 
avec l'imprimante à aiguille. 


Si la recopie d'écran a été commandée et en conséquence 
effectuée, un test est fait sur R. 


Si R est Vrai (-1), c'est-à-dire si l'impression du 
calendrier complet de l'année a été demandé, alors le 
programme est branché en 3500 où le numéro du mois est 
incrémenté de 1 pour calcul et impression du mois suivant 
(voir 3500). 


Sinon (R est Faux, 0) le programme est branché en 3010 
pour affichage d'un menu. 


On notera que ce test sur R n'a lieu que si le test sur SC 
est positif, donc s'il y a recopie d'écran. Si la recopie 
d'écran n'a pas été demandée, alors le programme continue en 
séquence à l'instruction 3000. 


3000 
Affichage du message MENTREE" en bas et à droite de 
l'écran. 


On notera le point-virgule en fin de l'instruction PRINT; 
son oubli provoque un saut de ligne et comme le message est 
écrit sur la ligne 24 le saut de ligne se traduit par une 
remontée intempestive de l'écran ! 


La couleur caractère qui avait été fixée au Noir (0) sur 
fond Jaune (3), pour bien simuler la touche "ENTREE" est 
ramenée au Bleu (4) sur fond Cyan (6). 


Le programme est ensuite stoppé en attente de la frappe de 


la touche ENTREE et de cette seule touche afin de permettre 
à l'opérateur de consulter le calendrier. 
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3010 - 3030 

Affichage d'un menu, proposant à l'opérateur, l'impression 
(touche I), le calcul d'un autre calendrier (touche A) ou la 
clôture (touche C). 


Un notera que les touches à utiliser pour le choix sont 
affichées en Noir (0) sur fond Rouge (1), pour mieux 
ressortir sur l'écran. 


Lorsque le mode impression du calendrier de toute l'année 
a été sélectionné, l'affichage du menu se fait à 
l'instruction 3500, quand l'incrémentation du numéro de mois 
M conduit à M = 13 (voir étiquette 3500). Comme le choix ne 
peut être qu'entre un autre calcul où la clôture, il est 
inutile de proposer l'impression. Aussi ce retour se fait-il 
en 3020 et non en 3010. C'est pourquoi l'affichage du mot 
"Pour" en ligne 10 ne se fait qu'à l'instruction 3020 de 
façon à être présent même avec le menu réduit. 


Bien entendu toutes ces “finesses" de programmation n'ont 
pas été prévues avant les essais d'utilisation. Ce n'est 
qu'à l'usage que l'on voit apparaître ces besoins de 
modifications et de raffinements du programme initial. 


3040 
Arrêt du programme en attente de la réponse de 
l'opérateur au choix proposé dans le menu. 


3050 

Si la réponse R$ est un À (autre calcul), le paramètre de 
branchement vaut 3 (la variable logique (R$="A") vaut -1) et 
le programme est branché sur la troisième étiquette soit 
100. On notera qu'à cette étiquette 100 les deux indicateurs 
SC et R sont réinitialisés à zéro. 


Si la réponse est un C (clôture), le paramètre de 
branchement vaut 4 (la variable logique (R$="C") vaut -1) et 
le programme est branché à la quatrième étiquette soit 3200. 


Si la réponse est un I et si le numéro du mois choisi est 
inférieur à 13, alors les deux variables logiques (R$-="l") 
et (M(13) sont égales à -1 et leur produit égal à 1. Le 
paramètre de branchement vaut 2 et le programme est branché 
à la deuxième étiquette soit 3100. On remarquera le signe + 
devant le produit pour tenir compte du signe positif lorsque 
les deux variables logiques sont égales à Vrai. 
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Dans le cas où M est égal à 13 (c'est ce qui se produit à 
la fin d'impression du calendrier d'une année complète) 
alors le produit (R$="1")*(M(13) est nul même si la touche 
I a été frappée. Ceci rend inopérante la touche I après 
impression du calendrier complet (le menu ne propose plus 
l'impression, comme on l'a vu dans les commentaires de 3010 
- bi il faut donc rendre la touche I inopérante dans ce 
cas). 


Enfin dans tous les cas d'utilisation d'une touche autre 
que A, C ou I (si l'on imprime le calendrier d'un seul 
mois), le paramètre de branchement vaut 1, toutes les 
variables logiques étant nulles et le programme est branché 
à l'étiquette 3040 pour une nouvelle lecture de R$. 


3100 
La recopie de l'écran sur l'imprimante a été commandée par 
frappe de la touche I. 


L'indicateur SC est posé égal à -1 (Vrai) et le projramme 
branché en 1000 pour réaffichage du calendrier. 


Le programme atteint alors l'étiquette 2500 où la 
condition IF SC étant vérifiée, l'instruction SCREENPRINT 
est exécutée. 


3200 
La clôture a été demandée par frappe de la touche A. 


L'écran est effacé et le programme est stoppé par 
l'instruction END. 


3500 

Cette étiquette est atteinte lorsqu'à l'étiquette 250D 
l'instruction SCREENPRINT a été exécutée (IF SC est vérifié) 
et que l'indicateur R de répétition est égal à -1 (Vrai). 
Nous sommes alors en mode d'impression du calendrier d'une 
année complète. 


Le numéro du mois est incrémenté de 1. 


Si le numéro de mois atteint la valeur 13 (tout le 
calendrier a été imprimé), l'écran est effacé et le 
programme branché en 3020 pour affichage du menu réduit. Il 
faut effacer l'écran avant le branchement car l'étiquette 
3020 ne comporte pas d'instruction CLS (celle-ci est en 3010 
pour l'affichage du menu complet). 
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Si M est inférieur à 13 alors (ELSE) le programme est 
branché en 580 pour le calcul et l'affichage du mois 
suivant. 


OX OX À XX * 


La vérification des branchements, des affichages corrects 
du calendrier dans tous les cas possibles et des divers modes de 
fonctionnement (mois isolés ou calendrier d'une année complète), 
nécessite, une fois tapé le programme tel qu'il a été conçu ab 
initio de rajouter quelques instructions complémentaires 
facilitant cette vérification. Nous allons en voir quelques 
exemples, 


11 faut tout d'abord vérifier que l'affichage du calendrier 
est correct, dans tous les cas possibles : 


- premier du mois un jour quelconque de la semaine 
du Dimanche au Samedi ) 
- nombre de jours du mois compris entre 2B et 31 
- nombre de jours du mois précédent compris entre 2B et 31 


Il n'est pas possible pratiquement de faire tourner 
directement le programme en choisissant au hasard les années et 


F 


les mois de façon à couvrir tous ces cas. 


Nous allons donc rajouter les instructions suivantes pour 
la mise au point (en n'oubliant pas de les supprimer pour le 
programme définitif). 

95 A$="2000":GOTO0 600 


800 CLS:PRINT “M=":PRINT "J=": 
PRINT "NJ=":PRINT "NJP=" 


818 LOCATE 3,0: INPUT M:LOCATE 3, 1: INPUT J 
LOCATE S5,2:INPUT NJ:LOCATE 3,3: INPUT NJP 
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820 SC=0: R=Q 


3905 GOTO 880 


#k4x 95 
Fixe le variable chaîne de caractères A$ à "2000" 
(pourquoi pes !). Cela permet de vérifier que l'effichage du 
mois et de l'année est correctement centré sur la ligne 1 de 
l'écran (étiquette 1000). 


Le branchement en 800 permet de sauter les calculs de J, 
NJ et NJP. 


##kk 600 - 810 


Les variables M (numéro du mois, pour l'affichege du nom 
de mois M$(M) en ligne 1, étiquette 1000), J (jour de la 
semaine du premier du mois evec J = O0 pour Oimanche et J = 6 
pour Samedi), NJ (nombre de jours du mois) et NJP (nombre de 
jours du mois précédent) sont entrés eu clavier. 


Comme ces instructions ne sont que provisoires, nous 
n'avons pas rajouté de tests de vraisemblance. Rien ne nous 
empèchera d'essayer un mois de Février de 32 jours précédé 
d'un mois de 25 jours ! 


Il nous reste quand même à ne pas essayer un jour de 
semaine supérieur à 6. 


Liu 820 
Les indicateurs SC et R sont fixés définitivement à 0 
(nous ne testons que l'affichage du calendrier sur un mois). 


#%k 3005 
Le programme a été stoppé par l'instruction 3000. 
L'instruction provisoire 3005 branche en 800 pour un essai 
avec de nouvelles valeurs, 


Ces instructions nous permettront de tester le programme de 
1000 à 3000 en particulier les valeurs de CC et LL et leurs 
calculs. 
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Si bien entendu le lecteur programme ces instructions 
provisoires avec le programme tel que donné ici, il constatera 
que tout marche correctement. Nous ne saurons trop lui conseiller 
de reconcevoir le programme à titre d'exercice, sans relire le 
programme fourni. C'est alors qu'il constatera combien les 
instructions de mise au point sont utiles ! 


Il nous faut enfin vérifier le fonctionnement des 
indicateurs SC et R. 


Si nous laissons l'instruction SCREENPRINT en 2500, nous 
dépenserons beaucoup de papier et de temps en mise au point. 


Aussi est-il recommandé de modifier provisoirement 
l'instruction 2500 : 


2500 COLOR 4:1F SC THEN CLS:PRINT "SCREENPRINT" 
ER$SSINPUT$S(1):IF R GOTO 3500 ELSE GOTO 3010 


Ainsi l'instruction  SCREENPRINT est remplacée par 
l'affichage du message MSCREENPRINT" à l'écran préalablement 
effacé et le message peut &être lu puisque le programme est 
stoppé par l'instruction R$-INPUT$(1). Il est alors possible de 
tester les divers modes de fonctionnement et les options 
proposées par le menu. 
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A 1 


Contrôle des couleurs 


La programmation des couleurs est simple si l'on a bien 
compris un certain nombre de principes découlant de la façon dont 
sont representés les graphismes sur l'écran. 


Donnons tout d'abord quelques renseignements sur la 
composition de l'écran et les possibilités de coloration de ses 
points. Nous préciserons ensuite ces notions à l'aide d'exemples, 


L'écran est constitué de 20D lignes graphiques, chaque 
ligne ayant 320 points. 


Nous ferons la distinction entre une "Ligne Graphique" 
constituée de 320 points et une "Ligne Texte" constituée de huit 
lignes graphiques superposées sur lesquelles s'inscrivent les 
caractères. L'ordonnée Y d'une ligne graphique est comprise entre 
0 et 199 alors que la cote L d'une ligne texte est comprise entre 
0 et 24. Nous utiliserons la notation L pour la cote de la ligne 
texte dans les les instructions en “mode caractère" et la 
notation Y pour l'ordonnée d'une ligne graphique dans les 
instructions en "mode graphique". 


Mais les points d'une ligne ne sont pas indépendants. Ils 
sont regroupés en 40 segments de 8 points (8 x 40 = 320). Les 
points d'un même segrent ne peuvent avoir que deux couleurs 
choisies, par le programmeur, parmi les huit possibles. 


Chaque point d'un segment peut être affecté, par 


programme,à l'une ou l'autre des deux catégories de couleur que 
nous appelerons A et B. 
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Par la suite l'une des huit couleurs possibles peut être 


attribuée à chacune de ces deux catégories et ceci indépendamment 
pour chaque segment d'une même ligne ou des autres lignes. 


Interessons nous pour l'instant à un segnent donné, per 
exemple pour fixer les idées, au segment d'ordonnée Ÿ = 100 et 
constitué des huit points d'abscisses X = 40 à X = 47 (les 
ebscisses X de début de segment sont multiples de 8). 

Le programmeur peut décider (nous verrons plus loin 
comment) d'affecter tels points du segment à la catégorie À et 
tels points à la catégorie B. 


Par exemple les points sont ainsi répartis : 


AABAABBB 


Si le programmur affecte le Rouge (R) à la catégorie A et 
le Vert (V) à la catégorie B, on observera le segment : 


RRVRRUVU 


Si maintenant on change (par le progremme) la valeur de la 
couleur des points A du segment (Bleu par exemple à la place de 
Rouge), on observera le segment : 


BBVBBVUV 


Ainsi le changement de couleur attribuée à la catégorie A 
affecte tous les points A. 


; Cette remarque évidente nous permettra d'expliquer quelques 
phénomènes apparemment inattendus que l'on peut observer par 
exemple dans le cas suivant. 
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Ayant programmé les couleurs À et B d'un segment et ayant 
précisé quels points du segment sont À et quels points sont B, 
une instruction ultérieure indépendante vient chenger la couleur 
d'un seul des points du segment par exemple un point A. Dens ce 
cas tous les points A du segment chengent de couleur. Nous en 
donnerons des exemples (croisement de lignes ou traversée de 
cadres pleins, programmés par BDXF, par des lignes de couleurs 
différentes...) 


Pour des raisons que nous préciserons plus loin, les deux 
familles A et B portent les noms de COULEUR OE GRAPHISME et de 
COULEUR DE FOND. 


N'y ettachons, pour l'instant, aucun sens particulier car 
nous  verons qu'ils n'ont de réelle significetion que pour 
l'affichage des caractères. 


Contentons nous de penser qu'il est possible d'affecter 
chaque point d'un segment à une famille A (couleur de graphisme) 
ou à une famille 8 (couleur de fond) et qu' un chengement de 
valeur de l'une des deux couleurs change tous les points de la 


famille. 
L'instruction -(M.Ref 193)- 
SCREEN P,Q,R,J 
fixe les valeurs des couleurs pour tous les segments de l'écran. 


Les paramètres P, Q et R peuvent prendre les valeurs 
suivantes : 


0 Noir & Bleu 
1 Rouge 5 Magenta (Violet) 
2 Vert 6 Cyan (Bleu clair) 
3 Jaune 7 Blanc 
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- Le paramètre P fixe la couleur des caractères qui seront 
affichés sur l'écran par les instructions PRINT. Les points de 
l'écran appartenant à un caractère seront alors tous considérés 
comme appartenant à la famille A. C'est pourquoi la famille A 
porte le nom de "couleur de graphisme", 


- Le paremètre Q fixe la couleur de tous les autres points 
de l'écran. Tous les points n'appartenant pas à un caractère 
feront partie de la famille B. La famille B porte ainsi le nom de 
“couleur de fond". 


- Le paramètre R fixe la couleur du cadre entourant la 
partie utile de l'écran. Elle est en général fixée en début de 
programme et, sauf effets spéciaux, n'est pas modifiée en cours 
de programme. 


- Enfin le paramètre J (valeur D ou 1, nous disons bien 0 
ou 1, la valeur n'ayant pas de signification, seule la présence 
du paramètre en ayant une), intervertit les couleurs affectées 
aux familles A et B. 


Ainsi l'instruction SCREEN fixe globalement l'affectation 
des points de l'écran aux familles A et B et les couleurs de 
chacune de ces familles. 


Nous allons voir maintenant comment localement modifier ces 
affectations. 


L'instruction -(M.Ref 1B9)- 


COLCR PP,00,J 


modifie les deux couleurs pour les caractères qui seront affichés 
par les instructions PRINT qui suivront. 
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La couleur PP sera affectée aux points des caractères et la 
couleur QQ aux autres points des carrés ou rectangles dans 
lesquels s'inscrivent les caractères (carrés de 8 x B points pour 
les caractères de taille normale,carrés 16 x 16 ou rectangles B 
x 16 et 16 x B pour les caractères de grande taille). 


Ainsi Une instruction COLOR modifie localement la couleur 
affectée aux points de la catégorie A (couleur de graphisme) et 
aux points de la catégorie B (couleur de fond) pour tous les 
segments appartenant aux carrés ou rectangles dans lesquels 
s'inscrivent les caractères affichés après cette instruction. 

Mais il faut prendre garde à ce qu'une instruction SCREEN 
suivant diverses instructions CDLOR viendra changer globalement 
la couleur des points de la catégorie A (donc les points 


appartenant aux caractères) et la couleur des points de la 
catégorie B (donc les points de fond). 


Un exemple précisera ces notions. 


Etudions le programme suivant : 


18 CLS 

20 SCREEN 4,6,6 

30 LOCATE @,@:PRINT “X" 

48 COLOR @,6 

50 ATTRB 1, 1:LOCATE 6, 4:PRINT “Y* 
60 COLOR 211 


7@ ATTRB @; 2:LOCATE @, 8: PRINT "Z" 


#44 1D 
Efface l'écran 


*##+ 20 
Fixe la couleur Bleu (4) pour les caractères (couleur de 
graphisme), la couleur Cyan (Bleu clair) (6) (couleur de 
fond) pour l'écran,la couleur Cyan pour l'entourage. 
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##% 30 
Affiche le caractère X dans le coin haut-gauche de 
l'écran. Le caractère est Bleu et les points du carré B x 8 
entourant le caractère sont de couleur de fond, c'est-à-dire 
Cyan. 


#kk 40 
Fixe la couleur des caractères (couleur de graphisme) au 
Noir (0) et la couleur des points des carrés entourant les 
caractères au Cyan (6). 


Il aurait été possible de ne pas repréciser la couleur de 
fond puisqu'elle est identique à celle fixée par 
l'instruction  SCREEN en 20. On aurait donc pu écrire 
l'instruction 40 sous la forme : 40 COLOR 0 


4% Cf 
Affiche sur la cinquième ligne de texte, en colonne 0, le 
caractère Ÿ en taille double. 


La couleur des points du caractère est Noir. La couleur 
des points du carré 16 x 16 entourant le caractère est Cyan. 
Ces derniers points ne se distinguent pas des autres points 
d'écran. 


vx 60 
Fixe la couleur de graphisme à 2 (Vert) et la couleur de 
fond à 1 (Rouge). 
###k 70 


Affiche sur la huitième ligne de texte, en colonne 0, le 
caractère Z en taille simple. 


Les points du caractère sont Vert (couleur de graphisme), 
les points du carré B x 8 dans lequel s'inscrit le caractère 
sont Rouge (couleur de fond). Ainsi les points du fond de 
caractère se distinguent des points du fond général écran. 


Si une fois ce programme exécuté nous tapons directement 
l'instruction : 


SCREEN 5,2,6 
tous les caractères passeront en Magenta (5) qui est maintenant 
la couleur générale caractère et tous les points de l'écran 


n'appartenant pas à un caractère passeront au Vert (2) (couleur 
générale fond). 
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Les instructions présentées dans le court programme exemple 
sont des instructions dites en mode "caractère". Les points 
d'écran sont traités en "pavés" de B x B (ou B x 16, 16 x 8, 16 x 
16 pour les caractères de taille double). Les instructions COLOR 
fixent ainsi, globalement, les catégories A (graphique) et B 
(fond) de tous les points d'un pavé. Nous allons étudier 
maintenant le mode graphique qui traite les points 
D de (avec quelques restrictions comme nous allons le 
voir 


Avant de passer au mode graphique rappelons qu'il est 
possible d'écrire de façon plus concise un ensemble 
COLOR ,LOCATE ,PRINT. 


Ainsi les trois instructions figurant en 60 et 70 peuvent 
s'écrire -(M.Ref 187)- 


PSET (0,8) "2",2,1 


Nous noterons que l'instruction PSET est une instruction 
mode caractère. 


En conséquence les coordonnées figurant entre parenthèses 
sont des numéros de ligne texte (0 à 24) et de colonne (0 à 39). 
Le mode caractère est reconnu par la présence d'une chaîne 
figurant après la parenthèse. 


Cette instruction ne permet d'afficher qu'un seul caractère 
(le premier de la chaîne si celle-ci contient plus d'un 
caractère). 


Enfin les deux derniers paramètres sont les mêmes que ceux 
figurant dans un COLOR, le premier fixant la couleur de graphisme 
(catégorie A), le second fixant la couleur de fond (catégorie B). 
IL est même possible d'ajouter un dernier paramètre 
(indifféremment 0 ou 1), inversant les deux couleurs, comme dans 
un COLOR. 


AXE 
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Passons maintenant aux instructions graphiques permettant 
de traiter les points de l'écran "individuellement". 


L'instruction de base est l'instruction -(M.Ref 1B7)- 


PSET (X,Y),CC 


qui permet de placer un point sur l'écran aux coordonnées X (X 
varie de 0 à 319) et Y (Y varie de 0 à 199) avec une couleur 
définie par le paramètre CC. 


I1 faut prendre garde à ce que la façon d'exprimer la 
valeur de CC permet de situer le point dans la catégorie des 
points A (ayant la couleur de graphisme) ou dans la catégorie des 
points B (ayant la couleur de fond) tout en précisant la valeur 
attribuée à cette couleur. 


On a vu que la différence entre couleur de graphisme et 
couleur de fond est exprimée, dans une instruction SCREEN où une 
instruction COLOR par la place du paramètre. 


Oans ces deux instructions le premier paramètre attribue 
une valeur à la couleur de graphisme, le second attribue une 
valeur à la couleur de fond. Par ailleurs un point appartient 
d'office à la catégorie A (couleur de graphisme) si c'est un 
point d'un caractère et à la catégorie B (couleur de fond) dans 
le cas contraire. 


Oans une instruction PSET qui n'agit que sur un point 
(défini par ses coordonnées X et Y), on précise deux choses à la 
fois : 


- si l'on considère que le point appartient à la 
catégorie À ou à la catégorie B, 


- quelle est la couleur attribuée à la catégorie 
retenue. 


258 


A cet effet le paramètre CC peut recevoir une valeur 
numérique comprise entre -8 et 7. 


Si la valeur de CC est négative, alors le point est classé 
dans la catégorie 8, c'est-à-dire dans les points ayant une 
couleur de fond. 

Si la valeur est positive alors le point est classé dans la 
catégorie A, c'est-à-dire dans les points ayant une couleur de 
graphisme, 

Le code des couleurs est le suivant (il n'est applicable 
que pour les instructions graphiques) : 

Noir O0 ou -1 
Rouge 1 ou -2 
Vert 


ou -3 


2 
Jaune 3 ou -4 


Bleu 4 ou -5 
Magenta 5 ou -6 
Cyan 6 ou -7 
Blanc 7 ou -8 


Ainsi l'instruction 


PSET (41,100),-8 


considère le point de coordonnées X = 41, Y = 100 comme un point 
de catégorie B (couleur de fond) et lui attribue la couleur 
Blanc. Mais il faut prendre garde à ce que, ce faisant, tous les 
points du segment dans lequel se situe notre point (allant de X = 
40 jusqu'à X = 47 de la ligne d'ordonnée Y = 100),classés, par 
des instructions précédentes, dans la catégorie B, se trouveront 
colorés en Blanc. 
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Si par exemple nous écrivons les deux instructions 
suivantes : 


10 CLS:SCREEN 4,6,6 


20 PSET (41,100), -8 


nous obtiendrons bien un point Blanc en X = 41, Y = 100 mais il 
sera accompagné par tout le segment X = 40 à X = 47 de la ligne 
d'ordonnée Y = 100, puisque tous ces points ont été classés par 
l'instruction 10 dans la catégorie B (couleur de fond). La 
couleur de fond ayant été changée par l'instruction 20 (-B = 
Blanc), tous les points du segment appartenant à la catégorie B 
passent à la nouvelle couleur. 


Si donc nous voulons obtenir un point Blanc unique, il nous 
faut modifier l'instruction 20 par : 


ZO PSET (41, 100),7 


Dans ces conditions le point X = 41, Y = 100 se voit classé 
dans les points de catégorie A (couleur de graphisme) dont la 
couleur est passée au Blanc. Les autres points du segment étant 
dans la catégorie B (SCREEN en 10 les a automatiquement classés 
tels puisqu'il n'y a pas de caractère à cette place), restent de 
la couleur de fond imposée par SCREEN. 


On obtient alors un point Blanc unique aux coordonnées 
41,100. 


Supposons maintenant que nous écrivions le programme 
s à se 2 
suivant très voisin du précédent : 


10 CLS:SCREEN 4, 6,6 
ZB LOCATE S,12:PRINT “XX" 


30 PSET (41,100),1 
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L'instruction 10 fixe la couleur de graphisme (A4) à 4 
(Bleu) et la couleur de fond (B) à 6 (Cyan). 


Ainsi l'instruction 20 affiche en ligne texte L = 12 


(ordonnée Y = (12 + 1) x 6 = 104 pour la ligne graphique 
contenant les points bas des caractères) et en colonne C = 5 
(abscisse 5 -x B = 40 pour les points bord-gauche du premier 


caractère) la chaîne composée de deux *. 
Les deux X apparaissent en Bleu sur fond Cyan. 


L'instruction 30 place alors un point dans le carré B x B 
occupé par le premier caractère X. Elle attribue à ce point la 
catégorie A (couleur de graphisme) puisque le paramètre CC, égal 
à 1, est positif. 


Le point apparait en Rouge (1) mais les points du premier X 
sur la ligne graphique Y = 100 passeront également au Rouge 
puisque ce sont des points de catégorie À (imposé par le SCREEN). 
Leur couleur doit donc changer pour celle imposée par 
l'instruction 30. 


Par contre les points de la ligne graphique Y = 100 du 
second X ne sont pas modifiés puisqu'ils appartiennent à un 
segment indépendant du premier. 


Cet effet néfaste de "bavure" d'une couleur sur l'autre ne 
peut être évitée qu'en attribuant au point défini par le PSET 
une couleur identique à celle déjà donnée pour les caractères, ce 
qui se fait très simplement en ne précisant pas la valeur du 
paramètre CC. Dans ce cas le point est considéré comme 
appartenant à la catégorie A (couleur de graphisme) et sa couleur 
est celle définie pour les points de sa catégorie par SCREEN ou 
par le dernier COLOR. 


Une autre méthode consiste, si cela est possible, à placer 
le point en dehors du carré intéressé par le caractère ! 


On notera que la valeur prise par défaut dans un PSET est 
celle d'une couleur de graphisme définie par le dernier SCREEN ou 
le dernier COLOR ( la couleur par défaut ne peut être une 
couleur de fond). 


HO ve Ne EX x 
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O'autres instructions permettent de définir des points. Ce 
sont -(M.Ref 1B7)- 


Box (x1,Y1)-(X2,Y2),CC 
BOxF (X1,Y1)-(X2,Y2),CC 


LINE (X1,Y1)-(X2,Y2),CC 


L'instruction BOX définit un cadre rectangulaire ayant pour 
coins les points X1,Y1 et X2,Y2. 


L'instruction B8DXF définit une plage colorée rectangulaire 
ayant pour coins les points X1,Y1 et X2,Y2. 


L'instruction LINE définit une droite ayant pour extrémités 
les points X1,Y1 et X2,Y2. 


Là encore le paramètre CC définit deux choses à la fois : 


- si les points de la figure (cadre rectangulaire, 
plage rectangulaire, droite) appartiennent à la catégorie A 
(couleur de graphisme) ou à la catégorie B (couleur de fond), 


- quelle est la couleur attribuée à la catégorie 
retenue. 


Pour répondre à ce double objectif la convention est la 
même que pour l'instruction PSET. 


On voit tout de suite les conséquences de ce type 
d'instruction. Il est nécessaire pour éviter les "bavures" d'un 
graphisme sur l'autre de les définir avec des catégories de 
couleurs différentes. 


Le programme de démonstration suivant va préciser ces 
points. 
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CLS:SCREEN 4,6,6 

FOR X=0 TO 312 STEP 8:PSET (X, 40) :NEXT 

BOXF (100, 50)-(132, 82), -8 

BOXF (100: 18B)-(132; 132): 7 

PSET (0, 0)"1",4,6 

R$=INPUTS (1) 

LINE (50; 50)-(150, 82), -1 

LINE (50, 60) -(150; 92),0 

PSET (0, 0)"2",4,6 

R&=INPUT$( 1) 

LINE (50, 100) -(150; 132), —1 
LINE (50: 119)-(150: 142),0 
PSET (0,0)"3",4,6 
R$=INPUTS(1) 

FOR X=80 TO 160 STEP 8 
PSET €X, 52), -—i 

PSET €X;55),0 

PSET (X, 102), -—i 

PSET (X:105).,0 

NEXT 

PSET (0,0)"4",4,6 
R$=INPUTS#(1) 


SCREEN 1,3, 3 
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Lin 


Lis 


Lir 
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10 

Efface l'écran et fixe la couleur de graphisme à 4 (Bleu), 
la couleur de fond à 6 (Cyan) et la couleur de l'entourage à 
6 (Cyan). 


20 

Affiche 40 points aux abscisses multiples de B sur la 
ligne graphique Y = 40. Les points sont en couleur graphique 
Bleu (valeur prise par défaut). 


30 et 40 

Ces deux instructions analogues définissent deux plages 
rectangulaires situées entre les lignes graphiques 50 et 82 
pour la première, entre les lignes graphiques 100 et 132 
pour la seconde.Les abscisses des coins sont les mêmes dans 
les deux cas, 100 pour le coin gauche, 132 pour le coin 
droit.Les deux plages sont Blanc (8 et -7), mais la première 
est en couleur B (couleur de fond) alors que la seconde est 
en couleur À (couleur de graphisme). 


On constatera que le résultat n'est pas le même pour les 
deux plages. La première plage, en couleur de fond, débute à 
l'abscisse 96 et se termine à l'abscisse 135 (les points de 
8 en B en ligne YŸ = 40 permettent de le vérifier). Par 
contre la deuxième plage, celle du bas, commence bien en X = 
100 et se termine bien en X = 132. 


La différence vient du choix du type de couleur. 


Pour la plage supérieure les points d'abscisse 100 (à 
l'intérieur du segment X = 96 à X = 103) étant de couleur 
fond changent la couleur de tous les points fond du segment. 
Or les points de l'écran sont tous des points fond 
(puisqu'il n'y a pas de caractère). Les points de 96 à 99 
passent donc au Blanc "entrainés" par les points 100 à 103. 
Il en est de même des points du segment X = 12B à X = 135 
qui se colorent entièrement en Blanc puisque ce sont 
également des points fond. 


Par contre la plage inférieure, tracée en couleur de 
graphisme ne déborde pas, les points 100 à 103 (couleur de 
graphisme) étant sans influence sur les points X = 96 à X = 
99 (couleur de fond), de même que les points X = 12B à X = 
132 (couleur de graphisme) sont sans influence sur les 
points X = 133 à X = 135 


Lis 


kk 


XX 


Lies 


50 
Place le caractère "1" dans le coin haut-gauche de l'écran 
en couleur 4 (Bleu) sur fond 6 (Cyan) 


55 
Attend qu'un caractère et un seul soit tapé au clavier et 
le place dans la variable AÀ$. 


Cette instruction permet d'arrêter le programme pour 
examiner le résultat et de reprendre le déroulement en 
tapant la touche ENTREE. Nous utiliserons des instructions 
analogues à 50 et 55 en 80,110 et 1B0 en changeant la valeur 
affichée dans le coin de l'écran pour se repérer dans le 
déroulement du programme. 


60 - 70 
Ces deux instructions tracent deux droites parallèles qui 
traversent la plage Blanc supérieure. 


Les deux droites sont tracées en Noir (-1 et 0), la 
première en couleur B (couleur de fond), la seconde en 
couleur À (couleur de graphisme). 


On constate que la ligne supérieure (couleur de fond -1) 
“bave", chaque point de la ligne déclenchant la coloration 
Noir du segment auquel il appartient. Ceci est dû au fait 
que ligne et fonds, que ce soit l'écran ou la plage Blanc 
sont tous trois en couleur de fond (B). 


Par contre la ligne inférieure est correcte puisqu'elle 
est en couleur (A) (couleur de graphisme) de nature 
différente des deux fonds traversés (couleur de fond B), 


BO - B5 
Voir 50 - 55. 
90 - 100 


Instructions analogues à 60 - 70 définissant deux lignes 
Noir parallèles traversant la plage Blanc inférieure. 


Là encore on constate que le graphisme est sans "bavure" 
dans les cas où droite et fonds n'appartiennent pas aux 
mêmes catégories de couleur, c'est-à-dire à l'intérieur de 
la plage Blanc pour la droite supérieure et à l'extérieur de 
la plage Blanc pour la droite inférieure. 
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Les 


Lin 


Lin 


Los 
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110 - 115 


Voir 50 - 55 

120 - 170 

Trace une suite de points espacés de 8 en B depuis 
l'abscisse X = BD jusqu'à l'abscisse X = 160. Quatre lignes 


pointillées horizontales sont ainsi définies traversant les 
deux plages Blanc. La première et la troisième ligne sont en 
Noir couleur B (couleur de fond). La seconde et la quatrième 
sont en Noir couleur A (couleur de graphisme). 


On constate que la première ligne est en fait continue, 
chaque point entraînant la coloration en Noir (B couleur de 
fond) du segment auquel il appartient. Par contre la 
deuxième ligne est correcte puisque les points sont en 
couleur A (couleur de graphisme) d'un type différent des 
deux fonds. 


La troisième ligne est continue à l'extérieur de la plage 
Blanc inférieure (identité du type de couleur, les deux 
étant B couleur de fond) et correctement pointillée à 
l'intérieur de la plage Blanc (types différents de couleur, 
B pour la ligne et À pour la plage). 


Ce résultat est évidemment inversé pour la dernière ligne. 


180 - 185 
Voir 50 - 55 


190 
Change les couleurs générales des points. 


Tous les points ayant une couleur du type A (couleur de 
graphisme) passent en Rouge (1) et tous les points ayant une 
couleur de type B (couleur de fond) passent en Jaune (3). 


Cela se traduit, en particulier, par la disparition de la 
plage supérieure (elle est maintenant en Jaune comme le 
reste de l'écran et n'est plus visible) ainsi que de tous 
les graphismes d'un type se détachant sur un fond du même 
type et que l'on ne distinguait que parce que les couleurs 
étaient différentes bien que de même type. Ainsi tous les 
graphismes qui "bavaient" ont disparu. 
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11 est impossible de fixer des règles pratiques permettant 
d'éviter à coup sûr les "bauures" exceptée celle-ci : 


NE PAS TRACER UN GRAPHISME AVEC UNE COULEUR OU MEME TYPE QUE 
CELUI OU FONO SUR LEQUEL IL APPARAIT. 


On peut néanmoins se fixer une règle plus simple quitte à 
l'abandonner dans les cas un peu délicats pour revenir à la règle 
générale citée ci-dessus. 

Ne définir les plages colorées qu'en couleur de fond (mais 
cela a l'inconvénient d'imposer des coins ayant des cotes multiples 
de B à gauche et multiples de B moins un à droite) et tracer les 


lignes en couleur de graphisme (mais attention aux bavures sur les 
caractères et les lignes voisines !) 


Donnons un exemple de cas compliqué. 

Nous  désirons tracer une grille composée de neuf lignes 
horizontales Rouge depuis Y = 20 jusqu'à Y = 180, de neuf lignes 
verticales Bleu depuis X = B0 jusqu'à X = 240. Enfin nous placerons 
une plage Blanc au milieu de la grille avec son coin haut-gauche en X 


= 135, Y = 75 et son coin bas-droit en X = 185, Y = 125, le fond 
général écran étant Cyan. 


Après quelques tâtonnements de mise au point on peut proposer 
le programme suivant : 
18 CLS:SCREEN 4,6: 6 
Ze BOXF (135, 75)-(185; 125), 7 


30 R$S=INPUTS(1) 


108 FOR Y = 20 TO 180 STEP 29 
119 LINE (C@,Y)-(319, Y),1 
1Z0 NEXT 


130 R$=INPUTS(1) 
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Z08 FOR X = 40 TO 180 STEP 20 
Z10 LINE (X:8)-(X,19),4 
Z28 LINE CX,21)2-(CX, 39) 

Z30 LINE (X,41)-CX, 59) 

Z48 LINE (X,61)2-CX, 74) 

250 LINE CX:75)-CX; 125): —5 
260 LINE (X,126)-CX; 139), 4 
2706 LINE CXr141)2-CX? 159) 
Z86 LINE (X,161)2-CX;, 179) 
290 LINE (X, 181)-CX, 199) 
308 NEXT 

310 R6é=INPUTS(1) 


408 FOR I = 1 TO 6 

410 X = 60+20*x1-(1) 3)+60 

4ZB LINE (CX»@)-CX; 19), 4 

430 FOR Y = 21 TO 161 STEP 29 
446 LINE CX, YD—-CX1 Y+18) 

450 NEXT Y 

468 LINE CX:181)2-CX; 199) 

478 NEXT 1! 


4680 R$=INPUTS(1) 


500 SCREEN 4,6,6 
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XAX 


Lis 


Lis 


Lis 


Lis 


Cie 


ACTE 


10 
Efface l'écran. Les caractères seront Bleu et le fond Cyan 
avec un entourage Cyan. 


20 
Affiche la plage Blanc. Il est nécessaire d'utiliser ici 
une couleur de graphisme puisque les abscisses des coins ne 
sont pas un multiple de B, pour le coin gauche, ni un 
multiple de 8 moins un, pour le coin droit 


30 

Le déroulement du programme s'arrête en 30 en attente de 
la frappe de la touche ENTREE. Cela permet de vérifier 
l'effet produit par les instructions précédentes. 


100 - 120 

Boucle en Ÿ affichant les lignes horizontales en Rouge. On 
a choisi une couleur de graphisme (Rouge 1), car la 
traversée de la plage Blanc ne pose pas de problème pour une 
ligne horizontale puisque les "bavures" ne se voient pas sur 
une ligne horizontale continue. 


130 
Voir 30 
200 - 300 


8oucle en X permettant d'afficher les verticales 
d'abscisses 140, 160 et 1B0. 


On remarquera (210 - 230 et 270 - 280) que l'on ne trace 
les parties verticales, au-dessus et au-dessous de la plage, 
qu'entre les horizontales pour éviter qu'au croisement le 
Bleu ne vienne "baver" sur l'horizontale Rouge (verticales 
et horizontales sont toutes en couleur de graphisme). 


Par contre dans la plage, une ligne verticale doit être 
tracée en couleur de fond puisque la plage est en couleur de 
graphisme. En conséquence plage et horizontales Rouge étant 
en couleur de graphisme, il n'y a pas de risque de "bauure" 
et l'on peut tracer directement les trois verticales d'un 
bord à l'autre de la plage, ce qui explique l'instruction 
250. 


310 
Voir 30 
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#44 400 - 470 
Les verticales à l'extérieur de la plage (à gauche et à 
droite), doivent être en couleur de graphisme puisque se 
situant sur la partie Cyan de l'écran en couleur de fond. La 
croisée des horizontales doit se faire avec précaution comme 
en 210 - 240 et 260 - 29,0. 


L'instruction 440 dans une boucle en Ÿ permet de ne tracer 
les verticales qu'entre les horizontales sans les couper. 


On notera que l'instruction 410 permet de calculer 
l'abscisse X de la ligne verticale numéro I, grâce à 
l'utilisation de la variable logique ( I ) 3 ). On obtient 
ainsi les six abscisses 80, 100, 120, 200, 220 et 240. 


FAX 4B0 
Voir 50 
##* 500 
Ramène tous les points du type couleur de graphisme à la 
couleur Bleu et tous les points du type couleur de fond à la 


couleur Cyan, 


Par suite la plage devient Bleu, ainsi que le réseau, 
extérieur à la plage, des horizontales et des verticales. 
Les horizontales intérieures sont noyées dans la couleur de 
graphisme et les verticales intérieures sont Cyan. 


Une fois ce programme écrit et testé on peut se poser la 
question suivante : 


Nous avons choisi de tracer les horizontales en couleur de 
graphisme Rouge (1). Pourquoi ? 


Certainement par routine (il est recommandé de tracer une 
ligne avec une couleur du type différent du fond). 


Or nous sommes dans le cas particulier de la ligne 
horizontale continue. Une telle ligne ne risque rien, quelle que 


soit la nature de sa couleur puisque les "bavures" ne se voient 
pas sur une horizontale continue, 


Rebâtissons le programme avec les horizontales Rouge fond. 
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18 CLS:SCREEN 4, 6,6 


20 BOXF (135, 75)-(185, 125), 7 


30 R$=INPUTS(1) 


100 
110 
120 
130 
200 
210 
220 
230 
24@ 
250 
260 
270 


280 


400 
410 
420 
430 


440 


200 


FOR Y = 20 TO 180 STEP 20 
LINE (@, Y)-C319, Y), -2 
NEXT 

R6S=INPUTS (1) 

FOR X = 40 TO 180 STEP 2@ 
LINE CX:@)-CX;, 74), 4 

LINE CX, 75)2-CX, 79), -5 
LINE CX,81)2-CX, 99), -5 
LINE CX:1812-CX;, 119), -S 
LINE CXr121)2-CX, 125), -S 
LINE CX:126)-CX; 199),4 
NEXT 


R$S=INPUT#(1) 


FOR I = 1 T06 

X = 60+2@+I-CI1) 3)60 
LINE €CX,:@)-CX, 199), 4 
NEXT 


R$=INPUTS(1) 


SCREEN 4,6,6 
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On constatera que le programme est assez simplifié par 
rapport à la première version. 


Nous laissons au lecteur le soin d'interprèter chacune des 
instructions. 


Nous ne noterons qu'une différence mineure entre les 
résultats des deux versions. Üans le premier cas les lignes 
horizontales Rouge passent "sur" les verticales Bleu. Dans la 
seconde version ce sont les verticales Bleu qui passent 
au-dessus" des horizontales Rouge. 
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A 2 


Programmation 
de l’imprimante PR 90 080 


L'imprimante à aiguille 90 080 peut imprimer les caractères 
typographiques classiques (ainsi que quelques autres comme le 
béta et le mu grecs, les crochets et les accolades), ceci en 
taille normale (inscrite dans un rectangle de 7 points de haut 
sur 6 points de large) ou en taille double largeur (inscrite dans 
un rectangle de 7 points de haut sur 12 points de large). 


Elle peut également imprimer des caractères spéciaux, 
conçus par l'utilisateur. 


En particulier il est possible de lui faire tracer des 
lignes horizontales ou verticales d'épaisseur variées, pour 
tracer des cadres, des grilles ou souligner des résultats. 


Mais rien n'empêche de créer des caractères grecs, russes 
ou hébreux (dans ce dernier ces un certain traitement de texte 
doit être mis au point pour imprimer les chaînes de caractères 
à lire de droite à gauche !). 


Nous allons donner ici les méthodes pratiques pour 
programmer l'imprimante, sans en donner de justification 
informatique que le lecteur pourra trouver dans le "Mode 
d'emploi" joint à la machine. Notre but est de donner des 
méthodes générales facilement applicables et non d'entrer dans le 
fonctionnement interne des logiciels d'impression. 
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A/ IMPRESSION O'UN LISTING 


L'impression d'un listing est obtenue par la commande 
directe : 


LIST "LPRT:(84)" 


pour obtenir un listing sur BD colonnes. 


Les commandes directes suivantes sont également utilisables 
pour obtenir des listing partiels : 


LIST "LPRT:(84)",19f 
LIST "LPRT:(894)",109-20P 
LIST "LPRT:(8ÿ)",-198 
LIST "LPRT:(BB)",394- 


Le résultat est évident. La première commande donne le 
listing de l'étiquette 100 uniquement, la seconde le listing de 
l'étiquette 100 à l'étiquette 200, la troisième du début du 
programme à l'étiquette 100, la quatrième de l'étiquette 300 à la 
fin du programme. 
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B/ MISE EN SERVICE OE L'IMPRIMANTE PAR PROGRAMME 


L'instruction de mise en service de l'imprimante s'écrit : 


OPEN "0",1,"LPRT:(B@)" 


précédée, bien entendu, d'un numéro d'étiquette (nous ne 
repréciserons pas ce détail pour les autres instructions) -(M.Ref 
177)-, 


Le chiffre 1 est le numéro choisi pour le canal de 
transmission des données à imprimer. 11 est possible de choisir 
toute autre valeur entre 1 et 16 pour ce numéro de canal, si l'on 
est amené à utiliser plusieurs canaux en même temps (lecture 
d'un fichier sur cassette ou sur disquette par exemple), 


La lettre DO entre quillemets signifie que le canal est 
ef ts dans le sens mémoire centrale vers périphérique (sens 
OUT). 


Le périphérique est ici l'imprimante caractérisée par le 
sigle LPRT:(89) placé entre guillemets. On prendra garde à ne pas 
oublier les deux points ":" après LPRAT. La valeur 80 entre 
parenthèses est le nombre maximal souhaité de caractères par 
ligne imprimée (on peut fixer un nombre plus faible). 
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C/ COMMANDES PROGRAMMABLES OE L'IMPRIMANTE 


En pratique il est possible de programmer huit commandes 


d'impression par des instructions de la forme : 


PRINT #1,XX$ 


(dans la mesure où le canal retenu est le canal 1, sinon faire 
suivre le signe dièse du numéro de canal choisi). 


La variable XX$ est l'une des huit variables suivantes : 
a/ MC$=CHR$(15) 


Commande la mise en service du Mode Caractères Normaux 
(caractères typographiques inscrits dans un rectangle de 7 
points de haut sur 6 de large). 


Cette commande n'est utile que si un autre mode a été 
précédemment mis en service. Sinon l'imprimante se trouve 
programmée pour travailler dans ce mode à la mise en route. 


b/ MG$-CHRS(B) 
Commande la mise en service du Mode Graphique. 


Nous verrons plus loin comment bâtir les caractères 
ri 
spéciaux et comment les programmer. 


c/ OL$-CHR$(14) 
Commande la mise en service du Mode Caractères Doubles. 


La programmation des caractères doubles se fait comme 
celle des caractères simples, en se souvenant toutefois 
qu'ils occupent une place double, ce dont il faut tenir 
compte pour les positionner. 
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d/ PC$=CHR$(16) 


Permet de positionner un caractère ou une chaîne de 
caractères sur une ligne lorsque l'imprimante est en Mode 
Caractères Normaux ou en mode Caractères Doubles. 


Cette commande joue un rôle analogue à celui de 
l'instruction LOCATE pour l'écran. Nous en verrons l'usage 
plus loin. 


e/ PG$-CHR$(27)+CHR$(16) 


Joue un rôle analogue à la commande précédente pour les 
caractères spéciaux, lorsque l'imprimante est en Mode 
Graphique. Nous en verrons l'usage plus loin. 


f/ NSL$=CHR$(13) 


Interdit un saut à la ligne après l'impression d'un 
caractère, d'une chaîne de caractères ou d'un caractère 
graphique. Cette commande est utilisable dans tous les modes 
de fonctionnement. 


g/ SL$=-CHR$(14) 


Impose un saut de ligne après l'impression d'un caractère, 
d'une chaîne de caractères ou d'un caractère graphique. 
Cette commande est utilisable dans tous les modes de 
fonctionnement. 


h/ RR$=CHR$(28) 


Permet en Mode Graphique de répéter un "motif" composé da 
7 points verticaux ("noirs" ou "blancs!'). Nous en verrons 
l'utilisation plus loin. 


Il est recommandé, lorsque l'on projette l'utilisation de 
l'imprimante, de placer en début de programme les huit 
instructions suivantes sous une même étiquette (les noms 
mnémotechniques donnés aux variables de commande ont été choisis 
de façon à en faciliter l'emploi) : 


10 MC$=CHRS (15) :MG$S=CHRS (8) :DLS=CHRS (14) : 
PC$=CHR6 (16) : PG6S=CHRS (27) +PCS:NSLS=CHRS (13) : 
SLS=CHRS (10) : RR$=CHRS (28) 
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D/ FONCTIONMEPENT Eh MCDE CARACTERES (OR D JDALES. 


Le positionnement d'un caractère oo du premier caractère 
d'une chaîne se fait en utilisant la commande PC$ de la façor 
suivante : 


La commande 


PRINT #1,PC$5"3#";22$ 


laisse 30 espaces depuis le début de ligne, avant d'imprimer la 
chaîne de caractères Z2$. 


Autrement dit, en comptant les colonnes de D à 79, la 
commande PC$;"39" est équivalente à un LOCATE 34,. 


On notera, si l'on désire placer Z2$ en laissant un nombre 
d'espaces inférieur à 10, que la chaîne, à placer après la 
commande PC$, doit s'écrire avec un "#" comme premier chiffre, 
par exemple PC$:"f5" (l'oubli du zéro provoque des "catastrophes" 
difficilement prévisibles !). 


Si l'on est en Mode OÜouble Largeur la commande est la 
même, les espaces étant toujours de simple largeur. 


Si, par exemple on désire imprimer la chaîne ZZ$-"ESSAI 
D'IMPRESSION" au centre de trois lignes successives en mde 
normal, en mode double, puis à nouveau en mode normal, on 
programmera :! 

90 ZZ$="ESSAI D’ IMPRESSION" 

1800 OPEN "O".,1, "LPRT:(80)" 


110 PRINT #1, PC$:"31";ZZS:PRINT #1, DLS;: 
PCS5"22"3:2ZZS:PRINT #1, MCSsPCS:"31":278 
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La chaîne ZZ$ ayant 18 caractères il faut donc placer 
(80-18)/2=31 espaces avant d'imprimer ZZ$ en mode normal. En mode 
double la même chaîne occupe la place de 36 caractères. Il faut 
donc placer (80-36)/2=22 espaces avant d'imprimer ZZ$. 


On notera que l'absence de point-virgule après ZZ$, 
provoque le saut à la ligne. 


Il est toutefois possible de regrouper les trois 
instructions en une seule à condition d'inserrer des commandes 
SL$ de saut de ligne : 


110 PRINT #1, PC$:"31":226:SL$:DLS$: PCS: 
"22"3212$:SL$:MC6: PCS:"31"5:77$ 


On prendra garde à respecter scrupuleusement la syntaxe de 
l'instruction en plaçant une virqule après le numéro de canal et 
des points-virgules entre les variables chaîne qui suivent. 

11 est bien entendu possible d'imprimer des variables 
numériques par des instructions PRINT ou PRINT USING. 

Les quelques exemples suivants montreront la façon de 
bâtir de telles instructions. 

19 MCS=CHRS (15) =: MG6S=CHRS (8) :DLS=CHRS (14) : 
PCHS=CHRS (16) : PGS=CHR$S (27) +PC$S:NSLS=CHRE (13) : 
SL$S=CHRS (10) : RR$=CHRS (28) 

20 IM$S="AC#H) ! WWE ACHDOU ONE. HN" 

30 N=1235. 45 

40 FOR I=Q TO 9:A(1)=105@xI+I/15:NEXT 

108 OPEN "O",1, "LPRT:(SD)" 

110 PRINT#1, PCS35"DS"3S"N = "5 N 

120 FOR I=0 TO 9 STEP 2 


130 PRINT#I, PCé:"20"3:: 
PRINT#1, USING IM$:313"="5ACI)5I+15"="5ACI+1) 


148 NEXT 
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KHÉ 


Lacs 


Crisis 


At 
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10 
Mise en place des commandes d'impression 


20 
La chaîne de caractères IM$ servira d'image pour 
l'instruction PRINT USING en 130. 


L'image est constituée de caractères comme A( et ) où d' 
espaces qui seront imprimés tels quels, de caractères dièse 
pour positionner les valeurs numériques et du caractère ! 
destiné à imprimer une chaîne composée d'un seul caractère. 


Nous en verrons l'usage à l'étiquette 130. 
30 - 40 


Ces instructions sont destinées à définir les variables N 
et A(I) que l'on imprimera par les instructions 110 à 140. 


100 

Instruction de mise en service de l'imprimante. 
110 

L'imprimante laisse 5 espaces, imprime la chaîne "N = ", 


puis la valeur numérique de N. Cette valeur n'est pas 
“cadrée". Le premier chiffre se place deux espaces après le 
signe =. Un espace est imposé par la chaîne "N = "et le 
second représente la place du signe (le signe + n'est pas 
imprimé). 


120 - 130 
Boucle en I destinée à l'impression des A(1). 


La première instruction de 130 impose 20 espaces en début 
de ligne. 


On notera le point-virqule après la chaîne "29", évitant 
un saut à la ligne. 


La seconde instruction imprime, avec l'image IM$, la 
valeur numérique de I qui se placera entre les parenthèses 
de A( ), le signe = (positionné par le symbole ! dans 
l'image IM$), la valeur numérique de A(I) avec 4 places pour 
la partie entière et deux décimales, 4 espaces imposés par 
l'image Im$, la Valeur numérique de I+1, entre les 


parenthèses de A( ), le signe = et enfin la valeur numérique 
de A(I#1). 


On peut s'étonner de voir la façon dont nous avons imprimé 
les signes = entre les A(I) et les valeurs numériques en 
traitant le signe = de façon différente des chaînes A( et 


L'expérience montre que l'on peut placer, dans une chaîne 
image, des constantes chaînes composées de la plupart des 
caractères alphanumériques -(M.Ref 96)- sauf des caractères 
utilisés comme descripteurs, soient !, % et & pour 
positionner les variables chaînes et le dièse pour 
positionner les valeurs numériques (ainsi que la virgule, 
l'astérisqe, le dollar et la flèche d'exponentiation à 
certaines places) -(M.Ref 90)-. 


Par contre le signe =, figurant à l'intérieur d'une image, 
n'est pas imprimé ! La seule façon de l'introduire est celle 
proposée dans l'instruction 130. La même méthode sera 
utilisée pour introduire les caractères utilisés comme 
descripteurs. 


On notera enfin que l'on peut écrire l'image IM$ de la 
façon suivante : 


20 IMS="ACHD ! HN HN AC OUOHRNR, HN 


en inserrant une virgule avant le point décimal -(M.Ref 
95)-. Les valeurs numériques A(I) seront alors affichées 
avec une virgule tous les trois chiffres de la partie 
entière, séparant ainsi les puissances de 1000. Cette 
notation anglo-saxonne est à l'opposé de la notation 
française, mais elle peut être commode pour clarifier les 
résultats. 
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E/ FONCTIONNEMENT EN MODE GRAPHIQUE 


Lorsque le passage en mode graphique a été commandé par ! 


PRINT #1,MG$; 


une ligne d'impression doit être considérée comme une succession 
de 6 x 60 = 480 "caractères" composés chacun de 7 points sur une 
même verticale, chacun de ces points pouvant être imprimé ou 
non. 


Nous appelerons "motif" un ensemble de 7 points verticaux. 


Voyons tout d'abord comment composer un motif. A chaque 
motif, nous faisons correspondre Un nombre bâti de la façon 
suivante. 


Un point non imprimé compte pour zéro. Un point imprimé 
compte pour 1, s'il est sur la ligne supérieure, pour 2, s'il est 
sur la seconde, pour 4, s'il est sur la troisième, pour 8, s'il 
est sur la quatrième, pour 16, s'il est sur la cinquième, pour 
32, s'il est sur la sixième et enfin pour 64, s'il est sur la 
ligne inférieure. 


On fait la somme des nombres attibués à chaque point et 
l'on ajoute 128. Le nombre N ainsi obtenu est alors transformé en 
un caractère par la fonction CHR$(N). 


Un caractère spécial composé de P motifs différents 
successifs est alors mis en mémoire en concaténant les P 
caractères CHR$(N1),...,CHRS(NP). 


Précisons ces notions par Un exemple. Nous voulons bâtir 
S 8 È 
le caractère spécial suivant : 
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0000000000. . 1 
0........0.. 2 
0..0000. .0.. 4 
0..0..0..0.. 8 
0..0..0000.. 16 
0..0........ 32 
0. .000000000 64 


Nous avons rappelé, à droite du schéma, le "poids" de 
chaque point. 


Le premier motif sera représenté par 
NM=1+2+4+8 +16 + 32 + 64 + 128 = 255. 

Le second et le troisième motifs seront représentés par 
N2 = N3 = 1 + 128 = 129 

Le quatrième motif sera représenté par 
N4 = 1 +4 +68 + 16 + 32 + 64 = 253 

Le cinquième motif sera représenté par 
NS = 1 + 4 + 64 + 128 = 197 

etc. 


La mise en mémoire du caractère se fera donc par la suite 
d'instructions suivante : 


20 DATA 255, 129, 129, 253, 197: 197, 221, 209: 
209, 225, 192, 192 


30 Z2Z6="":FOR K=1i TO 12:READ 7: 
Z26=2Z26+CHR$(CZ) =NEXT 


Les OATA en 20 sont les 12 nombres caractéristiques des 12 
motifs constituant le caractère. Les instructions sous 
l'étiquette 30 mettent le caractère spécial en mémoire dans Z2$. 
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Lorsque le même motif se répète plusieurs fois de suite, 
il est possible de racourcir le stockage en mémoire en utilisant 
la commande de répétition RR$ = CHR$(28). 


Un exemple va nous faire comprendre la méthode. 


Supposons que nous voulions tracer un caractère de 
soulignage continu composé de deux lignes, l'une placée à la 
hauteur du second point du motif, la seconde à la hauteur du 
quatrième point du motif. 


Le motif est alors caractérisé par le nombre 2 + 8 + 128 = 
138 et donc représenté par ZM$ = CHR$(138). 


Si l'on veut souligner 18 caractères typographiques 
(affichés préalablement en Mode Caractère), il nous faut bâtir 
un caractère spécial ZSL$ répétant 6 x 18 = 108 fois le motif 
2M$, puisqu'un caractère typographique occupe six points. Le 
caractère ZSL$ est alors construit par 


ZSL$=RR$+CHRE(128)+2M$ 


O'une façon générale, pour répéter Q fois le motif ZM$, on 
bâtit la variable chaîne de caractères RRA$+CHR$(Q)+2M$. La 
valeur Q ne peut dépasser 255. Avec Q = O0 on obtient la 
répétition maximale de 256 motifs. 


Si nous voulons tracer notre caractère de soulignage sur 
les 80 colonnes disponibles de la ligne, il nous faut alors 
bâtir la variable 


ZTLÉ=RRS+CHRS(P)+ZMP+RRS+CHRS( 224 )+ZM$ 


ce qui va bien nous répéter 256 + 224 = 480 fois le motif. 


: Il nous reste maintenant à positionner les caractères 
spéciaux. 


11 faut pour cela utiliser la commande PG$, c'est-à-dire 
CHR$(27)+CHR$(16). 
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En numérotant les points de la ligne de O0 à 479, un 
caractère spécial sera placé au point N, par l'instruction : 


PRINT#1,PG$;CHR$(N1 );CHRS(N2) 


avec la règle suivante pour calculer N1 et N2 : 


- si N'est inférieur à 256 alors N = Oet N2=N 


- si N est supérieur ou égal à 256 alors N1 = 1 et N2 = N - 256 


11 faut noter qu'en l'absence de commande de positionnement un 
caractère est placé en début de ligne. En particulier si l'on 
tente d'imprimer une suite de caractères spéciaux par une 
instruction de la forme : 


PRINT#1,21$:22$;23$;.....52ZN$ 


on  constatera que les caractères s'impriment bien les uns 
derrière les autres, mais que la suite des instructions 


PRINT#1,21$3;:PRINT#1,22$3;:PRINT#1,23$5:....:PRINT#1,ZN$; 


même avec un point-virqule après les variables Z$, conduit à 
imprimer les 2$, en colonne O0, les uns au-dessous des autres. 


Si l'on évite le saut à la ligne en utilisant la commande NSL$ 
par :! 


PRINT#1,21$3NSL$;:PRINT#1,22$;NSL$; : 
PRINT#1,23$;NSL$;:....2:PRINT#1, ZNS;NSL$ 


on obtient la superposition de tous les caractères en début de 
ligne. 

Il est donc nécessaire, chaque fois que l'on effectue une 
impression avec une instruction commençant par PRINT, de 
positionner le caractère qui suit par la commande PG$. 
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Enfi 


octets de 
commande 
longueur totale supérieure à 90. 


Le 


n une 
13 
PRINT 


court 


dernière règle pratique (due à la capacité de 90 
mémoire tampon), ne jamais placer derrière une 
une succession de chaînes de caractères de 


programme de démonstration suivant va préciser 


l'emploi de toutes ces commandes et règles. 
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10 MC$=CHRS (15) :MG$=CHR6 (8) :DL$S=CHRS (14) : 
PCS=CHRS (16) : PGS=CHRS (27) +PCS$: NSL$S=CHRS (13) : 
SL$=CHRS6 (10) : RR$=CHRS (28) 


26 DATA 255, 129, 129, 253, 197, 197, 221, 209; 
209, 223, 192, 192 


SO ZZ$="":FOR K=1i TO 12:READ 7: 
Z26=22$+CHR6(Z) = NEXT 


4O ZGC$="":FOR K=1 TO 5:2Z6C$=-Z6C$+ZG6:NEXT 


50 ZL$=RRÉ+CHRS (108) +CHR$ (138) 


60 ZTL$=RR6+CHRS (D) +RR$+CHRS (224) +CHR$ (138) 


78 T$="ESSAI D’ IMPRESSION" 


100 OPEN 


110 


"0"; 1» "LPRT: (80) " 


PRINT#i1r PCÉ5 "31" TS 


120 P=31:GO0OSUB 1000 


150 PRINT#1, MG6: PGR$ : ZL$ 


140 S=5:GOSUB 2000: PRINT#1, ZTLé:GO0SUB 2080 


150 FOR K=Q TO 7 


160 P=10*K:GOSUB 1020:PRINT#1, PGR$: ZGC$ :; NSLS; 


17@ NEXT 


180 PRINT#1, MC 


190 S=3:GO0SUB 2000 


208 CLOSE: END 


YA 


Lacs 


KAx 


AT 


1000 N=6xP:IF N)255 THEN N1=1: 
N22N-256 ELSE N1=8:N2=N 


1010 PGR$=PG6+CHRS (N1 ) +CHRS (N2) : RETURN 


2000 FOR KS=1 TO S:PRINT#1:NEXT K6: RETURN 


10 - 30 
Nous avons déjà vu ces trois instructions plus haut. 


40 

La variable ZGC$ à la fin des cinq boucles en K, contient 
5 caractères spéciaux définis en 20 et 30, c'est-à-dire 5 
"grecques". 


Un caractère Z6G$ a une longueur de 12 caractères (il est 
constitué par la concaténation de 12 CHR$). La variable 
chaîne ZGC$ a donc une longueur de 5 x 12 = 60 caractères, 
ce qui est inférieur à la valeur limite de 90. 


Il ne serait pas possible par contre de bâtir une 
variable contenant 10 "grecques", car cette variable aurait 
une longueur de 120 caractères, incompatible avec la 
capacité de 90 de la mémoire tampon. 


Nous avons retenu 5 "grecques", car la figure occupe une 
place égale à 10 caractères typographiques (60 points). Pour 
remplir toute la ligne, il suffira d'en imprimer 8 bout à 
bout. 


50 

Le caractère spécial ZL$ est composé de 108 motifs -second 
et quatrième points- (138=128+2+8). Il constitue donc un 
caractère de soulignage avec deux traits, d'une longueur de 
108 points, c'est-à-dire de 18 caractères typographiques. 


60 

Le caractère spécial ZTL$ est constitué de 480 motifs 
(256+224), identiques au motif précédent. I1 constitue donc 
un caractère occupant la totalité de la ligne. 


70 


Définition de la variable chaîne de caractères T$. On 
notera que T$ est une chaîne de 18 caractères. 
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Lies 


X 


XAx 


Xax 


AK 


A4 


Lx 
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100 
Instruction de mise en service de l'imprimante. 


110 
Impression de 31 espaces, puis de la chaîne de caractères 


T$. 


120 

On cherche à placer le caractère de soulignage ZL$, sous 
la chaîne T$ que l'on vient d'imprimer. I1 faut donc placer 
ZL$ en laissant 31 espaces de 6 points. La variable N est 
donc posée égale à 31 et le sous-programme 1000 va calculer 
la commande de positionnement en conséquence. 


Etudions donc maintenant le sous-programme 1000. 


1000 
a/ Le nombre N de points correspondant à P espaces est 
évidemment égal à 6*P. 


b/ Calcul des deux valeurs N1 et N2 correspondant à N, 
suivant la formule indiquée ci-dessus. 


1010 

a/ La variable de positionnement PGR$ est le résultat de 
la concaténation de la commande PG$ et des deux caractères 
CHR$(N1) et CHR$S(N2). 


b/ Instruction de clôture de sous-programme. 
Revenons maintenant au programme principal, 


130 

L'impression de la commande MG$ provoque le passage au 
Mode Graphique.La variable de positionnement PGR$, calculée 
par le sous-programme 1000 en fonction de P, place le 
caractère ZL$ sous la chaîne T$. 


140 
a/ et b/ Le sous-programme 2000 provoque 5 = 5 sauts à la 
ligne. 


c/ Impression de ZIL$ (trait double de soulignage) sur 
toute la largeur de la page. L'absence de commande de 
positionnement place le début de ZTL$ au point 0. 


d/ Provoque 5 sauts à la ligne. 


Lis 


Lis 


Léists 


150 - 170 
Une boucle en K, variant de 0 à 7, imprime 8 fois le 
groupe Z6C$ de cinq "grecques". 


On notera que l'instruction PRINT est suivie de la 
commande de positionnement  PGR$ (calculée par le 
sous-programme 1000 avec P = 10 * K) et se termine par la 
commande NSL$, suivie d'un point-virgule, pour éviter le 
saut à la ligne. On obtient ainsi une "grecque" occupant la 
totalité de la ligne. 


1680 
Cette instruction impose le retour au Mode Caractère. 


Elle est indispensable si l'on veut retrouver l'imprimante 
capable de travailler dans ce mode pour le programme suivant 
ou capable d'éditer un listing. 


Son oubli interdit un fonctionnement autre qu'en Mode 
Graphique (le dernier commandé). 


Un retour au fonctionnement normal peut être obtenu 
simplement en coupant puis en rétablissant l'alimentation 
par l'interrupteur de l'imprimante. 


190 
Provoque 3 sauts à la ligne pour dégager les impressions 
effectuées. 


200 
a/ Provoque la fermeture de tous les canaux ouverts. 


Cette instruction est indispensable pour permettre une 
utilisation ultérieure de l'imprimante. 


Son oubli entrainerait, sur commande de listing, un 
message d'erreur IU (Périphérique en cours de 
fonctionnement, "device In Use"), 


Le retour à un fonctionnement normal se fait simplement en 
tapant directement au clavier la commande CLOSE. 
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290 


b/ Instruction nécessaire pour éviter au programme de 
pénétrer en séquence dans le sous-programme 1000, provoquant 
le message d'erreur RG (RETURN without GOSUB). 


On notera que cette instruction provoque automatiquement 
la fermeture de tous les canaux, rendant de ce fait inutile 
l'instruction CLOSE précédente. 


Nous avons néanmoins laissé l'instruction CLOSE pour en 
montrer la nécessité (certains programmes peuvent ne pas se 
terminer par une instruction ENO). 


A 3 


Index des instructions 


Cet index donne, pour chaque instruction, le numéro du 
chapitre et le numéro de l'étiquette où elle a été utilisée. Bien 
entendu, tous les programmes et toutes le étiquettes ne sont pas 
cités.Seuls les cas les plus typiques ont été retenus. 


On remarquera enfin, que toutes les instructions figurant 
dans le manuel de référence ne fiqurent pas dans cet index. 
Seules, les instructions les plus courantes ont été utilisées 
dans les programmes de démonstration de cet ouvrage. 


ASC 1/80 5/2080 6/320 7/60030 
ATTAB 4/200 A1/50 

BEEP 5/180 10/6020 

Box 4/30 6/20 

BOXF 2/100 4/40 8/110 A1/30 A1/40 
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CHA$ 1/20 2/40 6/2B0 9/60 


CLEAR 5/10 6/10 7/10 8/10 9/20 10/60 10/10 
CLOSE 9/4130 10/6570 

CLS 1/10 

COLOR 1/60 8/300 8/800 

CONSOLE 4/520 5/2000 5/2100 

COS 4/120 

DATA 2/10 6/200 7/20 8/30 11/40 11/60 11/80 
OEFO8L 8/10 

OEFGR$ 5/40 5/270 6/150 7/240 

DEF INT 5/20 9/30 

OIM 5/20 6/250 B/10 10/80 

ENO 5/4000 6/320 68/5020 

FOR NEXT 1/30 

FRE 5/1555 


GOSU8 RETURN 3/210 7/540 


GOTO 2/610 


HEX$ 7/Page 146 
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IF GOTO ELSE 1/80 2/510 2/520 5/210 


IF THEN ELSE 3/240 3/270 3/300 5/2020 6/320 6/340 
8/2520 11/530 11/1090 11/2500 


INKEY$ 2/500 

INPUT # 7/520 7/530 

INPUT 10/40 10/130 

INPUTS(N) 1/80 2/10000 6/310 

INPUTPEN 5/200 8/900 68/5000 

INT 5/240 

LEFT$ 5/1560 

LEN 5/1560 B/1110 9/2000 11/5000 11/1000 
LINE 2/70 4/70 6/2000 A1/90 

LINE INPUT 5/530 5/550 

LIST A2/Page 274 

LOAOM 7/30 10/40 10/20 

LOCATE 1/60 

MIO$ 3/1020 5/1540 7/60030 

NEXT 1/70 

ON GOTO 2/580 5/1010 5/3020 6/390 9/510 


ONPEN GOTO 2/600 


OPEN S/3500 9/4000 10/6500 10/30 A2/100 
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PRINT 
PRINT# 
PRINT # USING 
PRINT USING 
PSET 


PTRIG 


REAO 


RESTORE 
RETURN 
RIGHT$ 


RNO 


SAVEM 
SCREEN 
SCREENPRINT 
SIN 

STEP 


STR$ 


VAL 
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7/220 7/60040 10/70 10/140 
2/40 

2/10010 8/930 

7/220 10/50 10/6550 
2/40 2/170 5/260 
5/5000 9/4010 10/6510 A2/110 
A2/130 

1/60 3/80 5/30 5/2050 9/1020 
A1/20 A1/50 


2/510 5/210 


2/120 
9/220 


6/260 
11/50 


7/210 8/40 B/50 
11/70 11/90 


2/10000 6/270 9/4030 
3/1040 8/5050 

5/3530 

5/1220 


7/300 10/6570 10/130 
1/10 8/100 A1/10 A1/190 
1/90 

4/120 

5/50 5/90 9/150 


5/1540 5/3530 8/2500 


8/3100 8/3400 9/2100 11/5020 


Achevé d'imprimer 
par Cld édiüions 


Dépêt légal: janvier 1984 
N° d'Éditeur: 4046 


